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1. Concepte fundamentale de programare cu exemple 
VisualBasic 


În dezvoltarea oricărei aplicaţii informatice, de obicei, se parcurge o 
succesiune bine definită de paşi care porneşte de la identificarea şi analiza 
cerinţelor problemei şi se termină cu lansarea în exploatare şi întreţinerea 
sistemului (figural-1). Este un fel de a spune “se termină” pentru că munca 
echipei de dezvoltare nu se termină decât odată cu ieşirea din exploatare a 
aplicaţiei. De obicei, primele trei activităţi şi ultimele trei sunt realizate de analişti 
şi proiectanți de sistem, programatorilor fiindu-le rezervată sarcina de a 
implementa(transpune) într-un limbaj de programare, într-o manieră cât mai 
optimizată cu putinţă, specificaţiile tehnice obţinute de la echipa de proiectare a 
modulelor. 


Figura 1-1 Secvența de activităţi ce o presupune dezvoltarea unei aplicaţii informatice 


A programa înseamnă în fapt a scrie secvenţe de cod ce implementează un 
anumit algoritm într-un limbaj de programare. Există accepțiunea generală cá : 


Algoritm +limbaj+ structuri de date = program 


1.1. Definitii ( algoritm, date, program, structuri de date). 


Dicţionarul de Informatică defineşte algoritmul ca “un concept folosit în mod 
intuitiv pentru a desemna o multime finită de operaţii (instrucţiuni, comenzi) 
cunoscute, care exexcutate într-o ordine bine stabilită pornind de la un set de 


valori 


(intrări), produc în timp finit un alt set de valori (iesiri)". Noţiunea de 


elgoritm este foarte bine descrisá chiar de caracteristicile esentiale ale acestuia: 


1. 


Finitudine. Un algoritm trebuie întotdeauna să se încheie după un 
număr finit de paşi. 


. Claritate. Fiecare pas al unui algoritm trebuie să fie bine definit; 


acţiunile ce trebuie executate vor fi riguros specificate într-o manieră 
care să elimine orice ambiguitate. Pentru ca un algoritm să poată fi 
înţeles de oricine, reprezentarea operaţiilor trebuie cumva formalizată. 
În acest sens se poate apela la: 
a. un limbaj astfel formalizat încât să fie universal valabil : scheme 
logice şi pseudocod; 
b. un limbaj de programare (Java, VB, C++, etc...) în care fiecare 
instrucţiune are un înţeles bine delimitat; 


. Intrări. Un algoritm poate avea zero sau mai multe date de intrare, 


valori ce îi sunt furnizate fie la momentul iniţial (înainte ca algoritmul să 
înceapă să se execute), fie în mod dinamic, pe măsură ce algoritmul se 
execută. 

leşiri. Un algoritm poate avea una sau mai multe valori de ieşire, ca 
rezultat al operaţiilor execute pe parcursul execuţiei asupra datelor de 
intrare (dacă acestea există) 


. Eficacitate. algoritmul prelucreaza datele initiale si furnizeaza 


rezultatul scontat; 


. Determinism. Orice algoritm trebuie să fie astfel specificat încât 


întotdeauna un procesor (fie calculatorul fie o persoană cu un creion şi 
o foaie în mână) să poată obţine în mod repetat exact aceleaşi date de 
ieşire dacă aplică operaţiile precizate asupra aceloraşi date de intrare. 


lată un exemplu de algoritm pentru determinarea rădăcinii ecuaţie de gradul 


Analiza problemei: forma generala a unei ecuatii de gradul | este ax+b=0. 
Datele de intrare vor fi coeficientii ecuatiei: a si b. Datele de iesire (rezultatul 
prelucrarii): 

- radacina x a ecuatiei sau 

- un mesaj ("x real" sau "nu exista solutie") 

Procesul prelucrarii datelor de intrare (algoritmul) poate fi descris astfel: 

PAS 1. Se introduc (=se citesc) valorile coeficientilor a, b; 

PAS 2. Daca a=0 si b=0 atunci se afiseaza "ecuatia are o infinitate de 


solutii !"; 


PAS 3. Daca a=0 si b<>0 atunci se afiseaza "ecuatia nu are solutii !"; 
PAS 4. Daca a<>0 atunci solutia este x= -b/a; 


PAS 5. Afiseaza valoarea lui x; 


Datele sunt elemente esenţiale ale unui algoritm. Asupra lor se aplică 
operaţiile. Datele sunt în sine valori cu o anumită semnificaţie pentru procesor 
(cel care mânuieşte algoritmul). În memoria calculatorului orice dată apare ca o 
succesiune de biţi. Modul în care pentru o astfel de succesiune se asociază o 
valoare depinde de interpretarea ce i se dă. Datele pot fi: 

e elementare : data apare ca o entitate indivizibilă din punct de vedere 
al valorii - aici includem: simboluri (litere sau caractere speciale ) şi 
numere 

e structurate: colecţie de date elementare sau date structurate 
organizate într-o anumită manieră pentru a reprezenta într-o formă 
abstractizată anumite noţiuni din lumea reală; iată câteva tipuri de date 
structurate (sau structuri de date): tablouri unidimensionale sau 
multidimensionale, liste, arbori, fişiere etc. 

Datele structurate vor fi abordate pe larg într-o secţiune separată 


1.1.1. Reprezentarea datelor elementare în memoria RAM 


Deşi prin utilizarea unui limbaj de nivel înalt (VB, FoxPro, Java, C, Delphi, 
etc...) datele elementare sunt manipulate într-o manieră mult simplificată din 
perspectiva utilizatorului limbajului respectiv, orice programator ştie că la nivelul 
sistemului de calcul toate instrucţiunile şi datele ce alcătuiesc un program sunt 
convertite în şiruri de biţi (şiruri de valori 0 şi 1). În cele ce urmează vom 
prezenta tehnicile de bază prin care datele elementare (simboluri şi numere) sunt 
reprezentate în memoria internă a calculatorului. 

Reprezentarea simbolurilor (litere şi caractere speciale) 

O metodă de a reprezenta datele la nivelul sistemului de clacul constă în 
proiectarea unui sistem de coduri în care fiecărui simbol i se asociază o 
combinaţie unică de biţi. În vremurile de început ale tehnologiei informaţiei au 
existat mai multe astfel de sisteme de codificare, multitudinea lor promovând 
ambiguitate şi dificultăţi în încercările de comunicare între mai multe sisteme de 
calcul. Pentru a elimina această situaţie se impunea adoptarea unui sistem 
standard care să fie implementat de toţi producătorii de sisteme hardware şi 
software. 

În anii '70 American National Standards Institute (ANSI) a dezvoltat sistemul 
de codificare ASCII - American Standard Code for Information Interchange - care 
a devenit în scurt timp extrem de popular şi care este utilizat pe scară largă şi 
astăzi. Iniţial acest sistem de codificare utiliza un model de 7 biţi (o înşiruire de 0 
şi 1) pentru a reprezenta literele mari şi mici ale alfabetului englez, caracterele 
de punctuație, cifre de la 0 la 9 şi anumite informaţii de control. Astăzi ASCII 
reprezintă simbolurile printr-o combinaţie unică de 8 biţi care nu numai că se 
poate stoca foarte uşor în memorie (celulă de memorie= 1 byte (octet) =8 biţi) 


dar oferă posibilitatea reprezentării unui număr de 256 (2?)de simboluri diferite, 
suficiente pentru a reprezenta spre exemplu toate caracterele ce pot fi introduse 
prin intermediul tastaturii. Spre exemplu, dacă utilizăm harta de coduri ASCII 
(www.ansi.org ), şirul de caractere “Hello” va fi reprezentat astfel: 

01001000 01100101 01101100 01101100 01101111 00101110 


AVVA AA 


Pe lângă ASCII, care este cel mai utilizat sistem de codificare la momentul 
actual, există şi alte sisteme care oferă posibilitatea reprezentării caracterelor 
într-o manieră mult mai extensivă. Spre exemplu, sistemul de codificare 
UNICODE (dezvoltat ca urmare a cooperării între liderii de piaţă în industria 
hardware şi software) utilizează 16 biţi pentru a reprezenta în mod unic un 
caracter oferind astfel 65536 (21%) de combinaţii unice, suficiente pentru a 
acoperi necesităţile alfabetelor chinezesc şi japonez. 

Reprezentarea valorilor numerice 

Metoda de stocare internă a informaţiei sub formă de combinaţii unice într-un 
sistem de coduri este totuşi ineficientă atunci când datele reprezintă valori 
numerice. Astfel, dacă ar fi să apelăm la ASCII pentru a reprezenta numărul 37, 
ar fi necesari 16 biţi (2 octeți) , câte un octet pentru fiecare cifră. Prin această 
tehnică un număr mai mare de 99 nu va putea fi stocat într-un interval de 16 biţi. 
O abordare mult mai eficientă ar fi reprezentarea numărului nu în baza zece 
( cifre de la 0 la 9 ) ci în baza doi (0 si 1). 

Sistemele de numerotaţie utilizează în general o asociere pozitie-cantitate, cu 
alte cuvinte poziţia unei cifre într-un număr determină semnificaţia acelei cifre. 
Spre exemplu semnificaţia numărului 375 în baza zece se obţine înmulţind 
fiecare cifră cu 10 la puterea /, unde / este indicele de poziţie numărând de la 
dreapta la stânga începând cu 0, astfel: 3x100+7x10+5x1 

Notaţia binară este utilizată pentru a stoca numere prin intermediul a doar 
două cifre: O şi 1. În mod similar sistemului zecimal, pentru a obţine semnificaţia 
numărului, vom efectua suma cifrelor ponderate cu factorul de poziţie. Fiecărei 
cifre (0 sau 1) i se asociază un factor reprezentând o putere a lui doi, astfel: cifra 
cea mai din dreapta se înmulţeşte cu 2? , următoarea cifră spre stânga se 
inmulteste cu 2! , următoarea cu 2? ş.a.m.d. Astfel, numărul 37 poate fi scris în 
baza doi: 100101 = 1x25+0x21+0x25+1x22+0x21+1x20% = 32+0+0+4+0+1=37. 
Cu alte cuvinte, numărul de biţi utilizaţi pentru a reprezenta numărul se reduce 
de la 16 (în ASCII) la 6. Următorul exemplu constituie înşruirea numerelor de la 0 
la 8 în baza 2: 


101 
110 
111 
1000 


Pentru a obţine reprezentarea unui număr în baza doi (din baza zece) apelăm 
la următorul algoritm: 

Pas1 - împarte numărul la 2 şi păstrează restul; 

Pas2. - cât timp rezultatul împărţirii nu este 0 continuă sa imparti noul rezultat 
la 2 şi memorează restul; 

Pas3. - o dată ce s-a obţinut un rezultat =0 al ultimei împărțiri, reprezentarea 
binară a numărului se obţine prin aşezarea resurilor obţinute anterior în ordine de 
la dreapta la stânga începând cu primul rest obţinut (acesta va fi cel mai din 
dreapta). 

lată un exemplu de aplicare a algoritmului pentru numărul 13 (în sistem binar 
reprezentat ca 1101): 


(1) 13/226 ? rest= 


(ultimul cât =0 > stop) 


101 


Ca urmare a adoptării acestui sistem, un byte (8 biţi) poate stoca numere de 
la O la 255 (00000000 la 11111111) iar prin intermediul a doi octeți putem stoca 
numere de la 0 la 65535. Obtinem astfel o îmbunătăţire drastică faţă de utilizarea 
sistemului ASCII unde pe doi octeți puteau fi reprezentate doar numere în 
intervalul 0-99. 

În practică, datorită complexităţii generate de reprezentarea numerelor mari, 
a semnelor pentru pozitiv/negativ si a numerelor zecimale, sistemul binar 
prezentat anterior constituie doar baza unor sisteme de reprezentare ceva mai 
complicate. Astfel, există notația celor două coplemente (pentru numere 
pozitive/negative) şi notația în virgulă mobilă (pentru numere zecimale). Analiza 
detaliată a acestor sisteme depăşeşte însă scopul acestui curs. 


1.1.2. Variabile,pointeri, literali, constante. Operații 
fundamentale în algoritmi 

Datele unei probleme apar în algoritmi sub formă de variabile. În informatică 

varibila reprezintă un nume atribuit unei adrese (celule) de memorie care 

stochează o valoare. Spunem astfel, că varibila identifică valoarea respectivă. 


Noţiunea de variabilă este folosită si în matematică. De pildă, spunem cá f(x, 
y)=2x+3y+5 este funcţie de două variabile independente x şi y. În programare, 
noţiunea de variabilă are un înţeles puţin diferit. Mai exact, o variabilă poate lua 
valori dintr-o mulțime bine precizată, care, ca şi în matematică, se numeşte 
domeniul de definiție al variabilei, dar la un moment dat variabila are o valoare 
bine precizată. 
O varibilă este caracterizată de: 
e Nume 
e Tipul datei (domeniul de valori - acele valori care pot constitui la un 
moment dat valoare curentă) 
e Valoare curentă 


Fiecărei variabile 1 se asociază un nume. Variabila se identifică în algoritm cu 
acest nume. De aceea, numele, se mai numeşte şi identificatorul variabilei. 
Numele de variabile din algoritmi apar 51 în programe. După ce un program se 
lansează 10 execuție, fiecărei variabile i se rezervă 10 memoria internă a 
calculatorului o zonă în care se înregistrează valoarea sa inițială. Această valoare 
se modifică pe parcursul execuției programului. Valoarea care se află la un 
moment dat în zona rezervată unei variabile se numeşte valoare curentă. 

Datele prelucrate de un algoritm trebuie să fie de un anumit tip. Tipul de dată 
este puternic influientat de limbajul de programare în care va fi scris programul. 
Ca urmare şi varibilele (prin care se manipulează acele date) vor avea un anumit 
tip. Majoritatea limbajelor de programare dispun de câteva tipuri standard de 
date. Dintre acestea menţionăm tipurile numerice întregi, tipurile numerice 
reale, tipul logic şi tipul caracter. Tipurile numerice sunt compatibile între ele. 
Cu alte cuvinte, se pot determina valorile unor expresii în care apar tipuri 
numerice diferite. Nu se pot evalua însă expresii în care apar date numerice şi 
date logice, date numerice şi caracter sau date logice şi caracter. 

Noţiunea de tip de dată este una din noţiunile de bază utilizate în limbajele de 
programare. Declararea unui tip de date înseamnă în esenţă a preciza o mulţime 
de valori şi o mulţime de operaţii care se pot efectua cu valorile respective. 

Există însă şi varibile care nu conţin o valoare ci o adresă a unei valori. 
Aceste tipuri de varibile se numesc pointeri. Figura 1-2 prezintă într-o manieră 
simplificată diferenţa între o variabilă şi un pointer la nivelul memoriei interne. 
Astfel, variabila V1 va avea valoarea 1254 iar varibila V2 va avea ca valoare 
adresa de memorie a valorii 1254, adică (Aar2). 


Variabila Pointer 


NumeVariabila +(TIP) (Add) V1+(INTEGER) + (Adi) V2+(INTEGER) + 


+Valoare (600) 1254 (Adr9) (Adr2) 


K 


Figura 1-2 Varibile si pointeri 


Asa cum se poate intui, ín acest exemplu ambele variabile, V1 si V2, 
“lucrează” cu aceeaşi valoare, cu alte cuvinte într-un algoritm, manipularea 
valorii 1254 se poate efectua prin intermediul oricăreia din cele două variabile. 
Într-un mod formalizat: 

V1 € 1254 

V2 € ADDR(V1) 

SCRIE V1 (se va afisa 1254) 

SCRIE V2 (se va afisa (Adr2)) 

SCRIE DEREF(V2) (se va afisa 1254) 

DEREF(V2)€ 256 

SCRIE V1 (se va afisa 256) 


Ín algoritmul de mai sus prin DEREF specificám faptul cá se manipuleazá 
valoarea la care se referá (spre care puncteazá) variabila V2 si nu valoarea ín 
sine a acesteia care reprezintă o adresă de memorie (Adr2). 

Pe parcursul dezvoltárii programelor, pot apare anumite date a cáror valoare 
nu se schimbă pe parcursul execuţiei. Dacă respectivele date sunt utilizate în 
mod direct, folosim noţiunea de literal: x+2 > 2 este un literal. Dacă însă unui 
literal i se atribuie chiar de la începutul execuţiei programului un identificator (un 
nume), iar pe parcursul programului utilizăm acel nume (în mod similar 
variabilelor) în locul valorii explicite, spunem că am definit o constantă. 
Constantele deţin toate caracteristicile variabilelor (nume, domeniu, adresa) dar 
sunt mărimi care nu îşi modifică valorile în timpul efectuării calculelor. De pildă, 
într-un program pentru controlul traficului aerian la un aeroport, o mărime intens 
utilizată în calcule este altitudiunea aeroportului faţă de nivelul mării: să zicem 
30m. Dacă utilizăm direct valoarea 30 în calcule, tranferul programului la un alt 
aeroport (plasat să zicem la 40m altit.) va implica modificarea tuturor liniilor de 
program ce utilizează valoarea respectivă. Dacă însă declarăm o constantă - 
AltitAeroport€ 30 - şi utilizăm această constantă în toate operaţiile de calcul, 
la tranferul programului nu va trebui decât să modificăm valoarea constantei 
AltitAeroport şi să rulăm aplicaţia. 

Aşadar, în orice algoritm manipulăm datele prin intermediul variabilelor şi a 
constantelor. 

Operatiile fundamentale ce se pot realiza într-un algoritm sunt: 

Operatii de atribuire - determiná asocierea unui nume (a unei variabile) cu o 
valoare. De multe ori valoarea poate sá nu fie o cantitate 10 sine ci rezultatul 
evaluării unei expresii. O expresie presupune mai multe date cărora li se aplică 


operatori, spre exemplu operatori matematici (+, -, / , *, ^ (ridicare la putere)). 
Operația de atribuire este implementată cu notații diferite de la un limbaj la altul, 
dar într-o formă generală ea se notează cu "€" pentru a o diferenţia de 
operatorul logic “=”. 

A€ 10 

B< 20 

C€ A+B 

Operatii de decizie - prin care se determină valoare logică a unei propoziții. 
Presupun utilizarea operatorilor relationali (2, <,>, <>, #, <=, >=) şi, eventual, 
a operatorilor logici (AND, OR, NOT). Valoarea logică obţinută se utilizează de 
obicei în cadrul unor structuri de control alternative. 

A€ 10 

B< 20 

IF A<>0 THEN 

R€ -B/A 
END IF 


Operatii de Intrare/lesire - se referá la furnizarea unor valori initiale ale 
variabilelor (citire) prin intermediul unei componente externe algoritmului sau 
extragerea valorilor unor variabile si furnizarea lor pentru afisare/stocare pe un 
suport extern (scriere). 


1.2. Reprezentarea formalizată a algoritmilor. Scheme 
logice. Pseudocod. 


Existá douá modalitáti general adoptate pentru reprezentarea unui algoritm: 

e Schemele logice - ansamblu de simboluri grafice ce permit 
reprezentarea sub formă grafică a unui algoritm. Simbolurile sunt 
standardizate din 1970 printr-un standard ANSI X35 

e  Pseudocod - se materializează prin extragerea unui grup de cuvinte din 
limbajul natural prin care se traduc structurile de control fundamentale, 
fără a implementa o semantică strictă. Nu există un standard precum în 
cazul schemelor logice. 

Tabelul 1-1 prezintă în paralel elementele grafice ale schemelor logice 
şi cuvintele pseudocod esenţiale în reprezentarea algoritmilor. Menţionăm 
că nu sunt evidenţiate simbolurile pentru operaţii speciale definite de 
standrdul X35. De asemenea precizăm că pentru pseudocod au fost alese 


cuvinte în engleză (deşi puteau fi şi în română) datorită modului familiar 
de implementare în diverse limbaje de programare. 


Simbol schemă logică Pseudocod Semnificație 
BEGIN Început /sfârşit algoritm 
( START ) | STOP END 
IF Cond THEN ... Bloc de decizie (se 
EALS TRI ELSE... evaluează condiţia Cond). 
END IF In pseudocod trebuie 
evidenţiat sfârşitul blocului 
A=B+C (sau) Operatie de atribuire şi 
AS B4C | A<B+C evaluare expresii de calcul 
READ a,b,c Citeşte / Scrie valorile 
WRITE a,b,c variabilelor a,b,c... 
CALL Procl Apel de procedură 
Proc1 (subprogram) 


Reprezentarea unui algoritm fie prin intermediul schemelor logice (Aranjarea 
simbolurilor grafice într-o anumită ordine) fie prin pseudocod (enumerarea 
cuvintelor rezervate într-o anumită ordine) 
fundamentale de control ce sunt utilizate în diverse combinaţii pentru a 
rezolva orice problemă algoritmică: 

e structura secventialá - operaţiile se execută în ordinea apariţiei de sus 


în jos, 


la bază câteva structuri 


e structura alternativă - în funcţie de rezultatul evaluării unei condiţii se 
execută un anumit set de operaţiuni sau altul. Există două subcategorii ale 


acestei structuri: 


o structura alternativă cu o ramură vidă - în funcţie de evaluarea 
unei condiţii se execută sau nu un anumit set de operaţii 

o structura alternativă generalizată (multiplă- cunoscută şi sub 
numele CASE) - un operand va fi comparat cu un set de valori 


predefinit 


e structura iterativă(repetitivă) - 


anumite operaţii se execută în mod 


repetat într-un număr finit de paşi. Există următoarele subcategorii: 
o structura iterativă cu un număr cunoscut de paşi ( FOR) - 
numărul de iterații depinde de un contor (o variabilă numerică ce 


creşte/descreşte 


până la 


anumit prag) ce se 


incrementeazá/decrementeazá cu un anumit factor 
o structura iterativă cu un număr necunoscut de paşi ( WHILE) - 
numárul de iteratii variazá in functie de anumite conditii 


o condiționată anterior (WHILE - DO) - mai întâi se evaluează 
condiţia şi apoi se execută setul de operaţii (obs: este posibil ca 
setul de operaţii să nu se execute vreodată) 

o condiționată posterior(DO-WHILE) - mai întâi se execută setul de 
operaţiuni şi apoi se evaluează condiţia pentru a relua pasul 
anterior sau a trece mai departe (obs: setul de operaţii se va 
executa macar o dată) 

Corpul (subsetul de operaţii) unei structuri alternative sau iterative poate fi la 
rândul său reprezentat prin oricare din cele trei structuri : secvenţa, decizia, 
iteratia. 


Schema Logica Pseudocod VisualBasic FoxPro Java Oracle PL/SQL 
Structura secventialá 
BEGIN Private Sub Secventa() a-1 public static void DECLARE 
AC1 a=1 b22 main(String[] args) a Integer; 
A*1 6<2 [= 2 c=a+b 1 b Integer; 
CC€A-cB c=a+b ? c int a-1; c Integer; 
Bes WRITE C Debug.Print (c) int b22; BEGIN 
END End Sub int c=a+b; a:=1; 
System.out.print(c); b:=2; 
CCA+B ) c:=a+b; 
Y DBMS OUTPUT.PUT LINE(c); 
WRITEC / END; 
STOP 


Structura Alternativa 


BEGIN 

6<2 

IF B>0 THEN 

WRITE “Pozitiv” 
ELSE 
WRITE 

“Negativ” 
END IF 
END 


Private Sub Secventa() 
b=2 
If (b > 0) Then 


Debug.Print 
("Pozitiv") 
Else 
Debug.Print 
("Negtiv") 
End If 
End Sub 


B-2 
If b>0 

? “pozitiv” 
Else 

? “negativ 
Endif 


n 


public static void 
main(String[] args) 
1 
int b=2; 
if (b>0) 
System.out.print 
("pozitiv"); 
else 
System.out.print 
("negativ"); 


declare 
b Integer; 
begin 
b:=2; 
if b>0 then 
DBMS OUTPUT.PUT LINE 
('Pozitiv'); 
else 
DBMS OUTPUT.PUT LINE 
('Negativ'); 
end if; 
end; 


Structura alternativă cu o ramură vidă 


STOP 


BEGIN 
B€2 
IF B>0 THEN 
WRITE “Pozitiv” 
END IF 
END 


Private Sub Secventa() 
b=2 
If (b > 0) Then 
Debug.Print 
("Pozitiv") 
End If 


End Sub 


B-2 
If b>0 

? “pozitiv” 
Endif 


public static void 
main(String[] args) 
1 
int b=2; 
if (b>0) 
System.out.print 
("pozitiv"); 


declare 
b Integer; 
begin 
b:=2; 
if b>0 then 
DBMS OUTPUT.PUT LINE 
('Pozitiv'); 
end if; 
end; 


Structura repetitivă condiţionată anterior (FOR, WHILE-DO) Exemplu: N factorial 


BEGIN Private Sub Secventa() N-1 
ic1 N=1 For i=1 to 8 
N€1 For i = 1 To 8 NzN*i 
While i<=8 Do N=N*i EndFor 
N€N*I Next ?N 
ici-1 Debug.Print (N) 
END While 
WRITE N End Sub 
END 
Varianta While-DO: Varianta While- 
DO: 
Private Sub Secventa() 
N=1 N=1 
i=1 i= 
Do While i <= 8 Do While i<=8 
N=N*i N=N*i 
i=i+1 i=i+1 
Loop EndDo 


Debug.Print (N) ?N 


End Sub 


public static void 
main(String[] args) 4 


int n21; 
for 
i=1;i<=8;i++) 
nzn*i ; 
System.out.prin 
t(n); 
) 


(int 


Varianta While-DO: 


public static void 
main(String[] args) 4 


int nz1; 
int i21; 
while (i<=8) 
( nzn*i; 
i++; 
} 
System.out.print(n); 


} 


declare 

N Integer; 

begin 

N:=1; 

For i in 1..8 Loop 
N:zN*i; 

End Loop; 


DBMS OUTPUT.PUT LINE(N) 


end; 


Varianta While-DO: 


declare 
N Integer; 
i Integer; 
begin 


k=l 

While i<=8 Loop 
N:=N*i; 
i:=i+1; 

End Loop; 


DBMS_OUTPUT.PUT_LINE(N) 


end; 


Structura repetitivă condiţionată posterior (DO-WHILE) 


BEGIN 

ic1 

NC1 
DO 

N€N*I 

ici-1 
While i<=8 
WRITE N 
END 


Private Sub Secventa() 
N-1 
i21 
Do 
N=N*i 
i=i+1 
Loop While i <= 8 
Debug.Print (N) 


End Sub 


Nu 
implementeaza 


public static void 
main(String[] args) { 


int n=1; 
int i=1; 
do 
{ n=n*i; 
i++;} 
while (i<=8); 


System.out.print( 
n); 


} 


declare 
N Integer; 
i Integer; 


i:=i+1; 
EXIT WHEN i >8; 
End Loop; 
DBMS OUTPUT.PUT LINE(N) 


end; 


Testarea unui algoritm poate fi efectuată doar cu un creion şi o hârtie, dacă 
utilizăm un tabel în care liniile sunt reprezentate de paşi iar coloanele de valorile 
execută. Spre exemplu, pentru 
calculul N factorial prezentat în schemele de mai sus (varianta WHILE-DO cu 


curente ale variabilelor şi instrucţiunile ce se 


N=4): 
Pas instrucţiune EvalCond N 
1 11 1 
2 NC€1 1 1 
3 1<=4? TRUE 1 1 
4 NEN*i 1 1 
5 ici-1 2 1 
6 i<=4? TRUE 2 1 
7 NC€N*i 1 2 
8 ici-1 3 2 
9 1<=4? TRUE 3 2 
10 NC€N*i 3 6 
11 1<1+1 4 6 
12 i<=4? TRUE 4 6 
13 NEN*i 4 24 
14 iCi+1 5 24 
15 i<=4? FALSE 5 24 
16 WRITE N 5 24 
lată în continuare şi algoritmul de rezolvare a ecuaţiei de gradul doi 


ax2+bx+c=0 reprezentat prin intermediul unei scheme logice. 


. FALSE TRUE y 
Mya apare 


- SQRT(A)) /(2*a) | 


+SQRT(A)) / (2*a) 


/ 


WRITE X1, X2 


STOP 


1.3. Elemente de sintaxă VB (tipuri de date, variabile, 
operatii, structuri de control, unitatea de program VB) 


1.3.1. Tipuri de date utilizate de Visual Basic 


Încadrarea unei date într-o anume categorie este absolut necesară pentru a 
putea efectua calcule sau alte prelucrări. Pe lângă tipurile fundamentale (numaric 
şi caracter) majoritatea limbajelor de programare implementează în plus cel 
puţin încă un tip: şir de caractere. Un şir de caractere (String) este o secvenţă 
de 0 sau mai multe caractere care sunt tratate ca o singură entitate. Visual Basic 
lucrează cu şiruri de caractere de lungime fixă sau variabilă. Tipul de dată 
considerat implicit este Variant, care indică o dată de tip nespecificat. La 
preluarea acestei date într-o secvenţă de cod este necesară conversia ei în tipul 
corespunzător prelucrării ce urmează. 


Tabelul Nr. 1-1 Tipuri de date VB 


Tipul Descriere 
Boolean Denumit şi logic, poate lua doar valorile True sau 
False. True şi False sunt cuvinte rezervate în 
Visual Basic. 
Byte Valori numerice pozitive, fără zecimale, în 
intervalul 0 - 255. 
Currency  |Date numerice care stochează sume însoţite de 
semnul monetar, în intervalul - 
$922,337,203,685,477.5808 - 
$922,337,203,685,477.5807. Semnul monetar este 
scris automat de cátre Visual Basic. 


Date Date calendaristice si timp. Data se incadreazá in 
intervalul 1 ianuarie 100 - 31 decembrie 9999. 
Double Valori numerice in intervalul - 


1.79769313486232E- 308 - 
1.79769313486232E-4- 308. Este denumit şi dublă 


precizie. 

Decimal Valori numerice care pot conţine zecimale, 
reprezentate pe 12 octeți 

Integer Valori numerice întregi fără zecimale, în intervalul 
-32,768 - 32,767. 

Long Similar cu Integer, dar cu valori în intervalul - 


2,147,483,648 - 2,147,483,647. Acest tip consumă 
mai multă memorie (32 biţi sau 4 octeți). Este 
denumit şi Long integer (întreg lung). 


Object Tip special de date, care face referire la obiecte 
cum sunt controalele sau form-ul. 

Single Valori numerice în intervalul -3.402823E+38 to 
3.402823E+38. Este denumit şi simplă precizie. 

String Şir de caractere alfanumerice (maxim 65400 de 


caractere). Pe lângă cifre şi litere se pot include 
caractere speciale precum ^, 96, and @. 

Variant Datá de orice tip, utilizatá atunci 0300 tipul datei 
este incert. 


Notatia ştiinţifică: 78.932E+6 înseamnă 1095 * 78.932 adică 78,932,000, 000:. 


1.3.2. Variabile, Constante, VB 


Într-un program se poate lucra cu oricâte variabile este necesar, dar înainte 
de a putea lucra cu o variabilă, aceasta trebuie declarată, specificând numele şi 
tipul acesteia. Unele limbaje de programare restricţionează declararea în mod 
explicit a variabilelor înainte de a le utiliza pentru a determina de la bun început 


1 Am utilizat convenţia anglo-saxonă: marca zecimală este punctul, iar virgula separă grupurile de 3 cifre de la partea 
întreagă. 


tipul de date ce va fi manipulat prin intermediul acelei variabile (Un astfel de 
limbaj este Oracle PL/SQL şi Java într-o anumită măsură). Alte limbaje oferă o mai 
mare libertate în lucrul cu variabile astfel încât acestea pot fi declarate în 
momentul utilizării lor ( prin atribuirea directă a unei valori), moment la care se 
determină şi tipul variabilei respective (astfel de limbaje sunt VisualBasic sau 
VisualFoxPro). 

În VB, declararea implicită are loc odată cu prima instrucţiune de atribuire, 
ca în exemplul: 

Raza = 25 

Dacă variabila primeşte ca valoare un număr, VB o consideră ca fiind 
considerată de tip Integer, dar declaraţia: 

Raza = 254 

forţează această variabilă la tipul Double, chiar dacă ordinul de mărime este 
mult prea mare pentru valoarea 25. Esenţa constă în dimensionarea riguroasă a 
spaţiului de memorie utilizat. 

Pentru declararea explicită a variabilelor se utilizează instrucţiunea Dim. 
Aceasta este plasată la începutul programului, indicând că undeva pe parcurs vor 
fi necesare variabilele declarate. Formatul instrucţiunii de declarare este: 

Dim <NumeVariabilă> As <TipDată> 

<NumeVariabilă> este definit de către utilizator, iar <TipDată> este specificat 
explicit, tipurile fiind cele prezentate în tabelul 5.1. 

Observație. Numele de variabile pot contine litere, cifre şi caracterul de 
subliniere (underscore). Nu pot să înceapă cu cifre, nu pot conţine spaţii ori alte 
caractere speciale. Este interzisă folosirea unor nume care sunt cuvinte-cheie în 
Visual Basic (nu putem avea o variabilă numită Form, dar putem folosi numele 
Form15). Aceleaşi precizări sunt valabile şi pentru constante. 

Atunci când se execută instrucţiunea Dim, se rezervă în memorie un spaţiu cu 
dimensiunea compatibilă cu <tipDată> şi acestui spaţiu i se atribuie numele 
<NumeVariabilă>. 

Instrucţiunea Dim se poate plasa oriunde într-o procedură, dar se recomandă 
scrierea sa la începutul acesteia. 

Nu se pot defini două variabile cu acelaşi nume în aceeaşi procedură. 

Operatori în VisualBasic 

Spuneam mai devreme că unei variabile i se poate atribui o valoare sub forma 
unei expresii. În general o expresie înseamnă o înşiruire de valori (operanzi) şi 
simboluri specializate (operatori) care poate fi evaluată la momentul execuţiei şi 
obţinută o valoare drept rezultat. Fiecare limbaj implementează operatori 
aritmetici, pentru şiruri de caractere şi logici. În marea majoritate a cazurilor 
operatorii aritmetici sunt implementati în mod similar de la un limbaj la altul (prin 
simbolurile universal valabile) iar celelalte două tipuri pot avea implementări 
diferite. 


Tabelul Nr. 1-2. Operatori în Visual Basic 


Operator Exemplu Descriere 
Opeartori aritmetici 
+ Sal + Imp Adună valorile celor două variablile. 
- Pret - 10000 Scade o valoare din alta. 
m Total * ProcTVA Înmulţeşte două valori. 
/ Total / 12 Imparte o valoare la alta. 
Y 10214 Calculeazá câtul unei împărțiri cu rest. 
Calculează restul unei împărțiri. 
Mod 6 Mod 4 6 MOD 4—2 
수 ×^3 Ridică valoarea X la puterea 3. 
Operatori pentru şiruri de carcatere 
Concatenează două şiruri (se poate 
& Numel & Nume2 folosi şi semnul + care, în cazul şirurilor 


înseamnă concatenare şi nu adunare). 


Operatori logici 


X-True 
AND Y=False 
X AND Y = False 
X-True 
OR Y=False 
X OR Y = True 
X-True 
NOT NOT X - False 
X Y X Xor Y 
True True False 
False True True 
True False True 
XOR False False False 


ambele 


Într-o exprimare mai directă : Poate fi X sau Y dar niciodată 


Ordinea de efectuare a operațiilor este cea cunoscută: întâi ridicarea la 
şi la urmă adunările şi scăderile. Pentru a 
şi precedenta operatorilor), se utilizează 


putere, apoi înmulţirile şi împărțirile 

schimba această ordine (denumită 

parantezele. 
Exemplu: 
3+2*4+ 
(3 + 2) * ( 
102/4=25.5 
102N4=25 
102 Mod 4=2 
La folosirea operatorilor aritmetici 


mai precis. 
Exemplu: 
Dim a as Long, b as Integer 
a=25 .565689 
b=12 
c=a+b 


pentru efectuarea de calcule, tipul de dată 
al rezultatului, dacă nu este declarat în prealabil, este dat de tipul de dată cel 


Rezultatul, memorat în variabila 0, va fi 37.565689. Tipul de dată al variabilei 
c va fi Long (tipul variabilei a), deoarece acesta are un grad de precizie mai mare 
decât tipul Integer (tipul variabilei a). Dacă variabila c ar fi fost declarată în 
prealabil ca Integer, Visual Basic ar fi rotunjit automat rezultatul la valoarea 38, 
deoarece tipul Integer nu are poziţii zecimale. 

Prin concatenare se obţine un şir nou format din cele două şiruri de 
caractere puse cap la cap (cel de-al doilea este adăugat la sfârşitul primului). 
Dacă am avea 2 casete de text (txtNume şi txtPrenume) în care utilizatorul a 
introdus numele, respectiv prenumele, prin concatenarea celor două valori am 
obţine numele întreg, astfel: 


strNumePrenume = txtNume & txtPrenume 
Existá o micá problemá cu instructiunea de mai sus, referitoare la absenta 


spatiului dintre nume si prenume. Operatorul & nu insereazá automat un spatiu - 
pentru cá nu întotdeauna este necesar aşa ceva. Spaţiul trebuie specificat 
explicit astfel: 


strNumePrenume = txtNume & " " & txtPrenume 
Observaţie: Visual Basic foloseşte pentru concatenare şi operatorul +, dar nu-l 
recomandăm deoarece poate produce confuzia (în mintea programatorului începător) cu 
operatorul pentru adunare. Oricum, nu este greşit dacă scriem: 

strNumePrenume = txtNume + " " + txtPrenume 


Domeniul de vizibilitate al variabilelor 
Într-un program, orice variabilă are o anumită durată de existenţă, cu alte 
cuvinte o anumită durată în care valoarea asociată poate fi manipulată. Unele 
variabile pot fi utilizate pe parcursul întregii aplicaţii pe când altele se 
initializeazá şi se volatilizeazá în cadrul unei structuri de control (IF, FOR, WHILE). 
Diverse limbaje de programare implementează în mod diferit acest concept de 
programare. O regulă general adoptată este aceea o variabilă declarată la 
începutul unei proceduri ( a unui algoritm) va fi disponibilă pe parcursul 
prelucrărilor generate de acel algoritm până la terminarea lui. Astfel, există 
limbaje de programare: 
* care impun declararea tuturor variabilelor la începutul unităţii de 
program: ADA, Oracle PL/SQL, Pascal 
* care oferă libertatea declarării variabilei chiar la momentul utilizării ei 
dar restrictioneazá durata de viaţă la nivelul structurii de control în 
care a fost declarată (dacă aceasta este o decizie - IF - sau o iteratie - 
FOR, WHILE, variabila declarată în cadrul structurii nu va fi “vizibilă” în 
afara ei , chiar dacă este vorba de aceeaşi subrutină ) : Java 
* care furnizează diverse tehnici pentru a declara domeniul de vizibilitate 
al variabilei : VisualBasic, FoxPro 
Am văzut mai devreme că în VB o variabilă poate fi declarată implicit atunci 
când este nevoie de ea sau explicit prin utilizarea instrucţiunii DIM. Locul în care 


este plasată instrucţiunea Dim este important pentru că specifică modul în care 
se va lucra cu variabila într-o aplicaţie. 

Atunci când se include instrucţiunea Option Explicit la începutul unui modul, în 
secţiunea denumită General (pentru că precede toate procedurile şi totodată 
este accesată de acestea), atunci toate variabilele cu care se va lucra în cadrul 
modulului trebuie să fie declarate explicit. Dacă această instrucţiune lipseşte, se 
poate lucra cu o variabilă fără ca ea să fi fost declarată în prealabil, dar aceasta 
este considerată implicit de tip Variant. Precizarea este valabilă atât pentru 
modulele-standard, cât şi pentru form-uri. 

Dacă Dim este plasată la începutul unei proceduri (după declaraţia Sub 
<nume- procedură>) sau dacă declarám o variabilă în mod implicit prin atribuirea 
directă a unei valori în cadrul procedurii (fără a o declara în prealabil cu DIM), 
atunci variabila declarată va fi recunoscută şi va putea fi utilizată doar în 
procedura respectivă, fiind o variabilă locală. Pentru ca variabilele să poată fi 
utilizate în toate procedurile dintr-un modul, trebuie să plasăm instrucţiunea Dim 
în secţiunea generală a modulului (vezi figura 5.4). 

Dacă în locul instrucţiunii Dim se utilizează Public (având acelaşi format cu 
Dim), toate modulele-standard şi toate form-urile aplicaţiei vor putea lucra cu 
variabilele declarate astfel. Acestea se numesc variabile globale. Instrucţiunea 
Public este utilizată pentru declararea variabilelor în secţiunea General a 
modulelor standard. Nu se poate folosi declaraţia Public într-o procedură 
delimitată prin Sub..End Sub. 

Declaraţia Private permite declararea de variabile la nivel de modul (pot fi 
apelate numai din procedurile din modulul respectiv, nu şi din alte module ori 
form-uri). Se foloseşte de asemenea în secţiunea General a modulului. Nici 
declaraţia Private nu se poate utiliza în cadrul procedurilor delimitate prin Sub... 
End Sub. 


pjTest - Module1 (Code) E m [ni xi 
(General) v |(Declarations) -j 


Option Explicit 
Const PI às Double = 3.141é| 
Dim Unghi às Single 


Sub CalculirieCerc |) 

Dim Raza is Integer, iriaCerc às Single 
Raza = 150 

iriaCerc = Raza * PI ^ 2 

End Sub 

Sub AflaCatetaOpusa()] 

Dim Catetai1 As Single, Ipotenuza is Single 
Ipotenuza = 1250 

Unghi = PI / 2 

Catetal = Sin(Unghi) * Ipotenuza 

End Sub 


Figura 1-3 Variabile locale şi globale 


Figura 1-4. Domeniul variabilelor 


1.4. Modularizarea programelor. . 


Încă de la începuturile erei calculatoarelor programatorii s-au confruntat cu 
problema complexităţii aplicaţiilor. Majoritatea problemelor din lumea reală sunt 
complexe şi nu pot fi formalizate prin intermediul unui singur algoritm. Mai mult, 
există numeroase părţi ale unei probleme ce pot fi regăsite în formularea altora, 
şi, ca urmare, algoritmii ce descriu părţile pot fi reutilizati. Reutilizarea codului 
este una din paradigmele fundamentale în programare iar dezvoltatorii de 
aplicaţii văd în acest procedeu un scop în sine al procesului de programare. În 
esenţă, reutilizarea codului se referă la gruparea unora din paşii unui algoritm 
pentru a forma porţiuni de cod scurte (numite generic module, subprograme sau 
subrutine), cât mai simple şi specializate, astfel încât: 

- prin asamblarea acestor părţi să se obţină rezultatul dorit; 

- unele module să poată fi reutilizate pentru asamblarea algoritmică a 
rezolvării unei alte probleme; acest aspect presupune simplitate şi 
specializare (modulul trebuie să rezolve o sarcină definită cât mai abstract 
posibil, sarcină care se poate apoi regăsi în definirea altei probleme) 

Subrutinele nu sunt altceva decât programe (algoritmi) în miniatură, cu 
propriile lor variabile şi opeartii fundamentale asupra datelor. 

Asamblarea ulterioară a modulelor presupune construirea unui program 
(algoritm) mai general care include instrucţiuni de apel (sau invocare) a 
subprogramelor. A invoca o subrutină înseamnă a transfera controlul 
execuţiei din modulul general către subrutină. În majoritatea cazurilor modulul 
principal îşi suspendă execuţia cât timp se execută subrutina (mai puţin în 
cazurile de programare pe mai multe fire de execuţie) . O dată ce controul 
execuţiei este primit, subprogramul se execută la rândul său apoi, după 
finalizare, înapoiază controlul modulului apelant (principal) care îşi reia 
execuţia de la pasul următor apelului subrutinei. 


1.4.1. Proceduri, funcţii, parametri. 


În programare, subrutinele pot fi de două tipuri: 

e Proceduri - module ce execută o anumită sarcină, iar după finalizarea 
execuţie redau controlul programului apelant; 

e Funcții - module ce execută o anumită sarcină dar pasul final al 
execuţiei presupune transmiterea unor valori către programul 
apelant, ca rezultat al prelucrărilor. Se spune că o funcţie este un modul 
care întotdeauna returnează un rezultat. Multe limbaje de programare 
implementează un cuvânt rezervat, RETURN, pentru a trimite rezultatul 
prelucrărilor programului apelant 


— ——» Controlul execuţiei 


PROCEDURA 


= -> Transfer date rezultat 


Figura 1-5 Două tipuri fundamentale de subrutine 


Orice subprogram (procedură sau funcție) are un nume, nume ce va fi utilizat 
în instrucțiunea de invocare. 

În multe cazuri, /a momentul transferului executiei programul apelant poate 
trimite o listă de valori subrutinei, valori ce se vor materializa sub forma unor 
variabile de intrare numite parametri (sau argumente). Cu alte cuvinte, există 
module care necesită date de intrare pentru a realiza prelucrări asupra lor, iar 
aceste date sunt preluate odată cu controlul execuţiei de la programul apelant. 


PROCEDURA P — —» Controlul execuţiei 
ae” A (parans: pLp2) 
b€2 — -— Transfer date-rezultat 
c€3 
CALL P(ab) — Transfer date 
parametri 
X-*o) 


Figura 1-6 Transferul de parametri 


Urmátoarele aspecte sunt esentiale si general valabile: 
e Parametrii sunt de două tipuri: 


o Parametri formali - varibilele declarate la nivelul subrutinei 
pentru a prelua valori de la programul apelant (în fig. 1-8 
parametrii formali ai procedurii P sunt p1 şi p2 iar pentru funcţia 
F- ply 

o Parametri actuali - valorile ce vor fi transmise subrutinelor la 
momentul executiei (in fig 1-8 este vorba de valorile variabilelor 
a şi b , adică "text" si 2, în cazul procedurii P şi valoarea 3 în 
cazul funcţiei F) ; parametrii actuali pot fi varibile, literali, 
constante (cu alte cuvinte obtineam acelaşi rezultat dacă 
apelam procedura cu doi literali în loc de două variabile : 
P(“text”, 2) 

e Numărul şi ordinea parametrilor este extrem de importantă - 
parametrii actuali sunt preluaţi de cei formali în ordine, strict de la 
stânga la dreapta (în fig 1-8, instrucţiunea CALL P(a,b) determină ca 
primul parametru formal al procedurii P (adică p1) să ia valoarea “text” 
iar cel de-al doilea (p2) să ia valoarea 2). Numărul parametrilor actuali 
trebuie întotdeauna să fie identic cu numărul parametrilor formali. 

e Pentru cá o funcţie întotdeuna returnează un rezultat, respectivul 
rezultat trebuie preluat într-o variabilă la nivelul rutinei principale 
(apelantă) - tocmai de aceea, întotdeauna invocarea unei funcţii se 
realizează după următroarea schemă: 

V=NumeFuncţie(lista_parametri_actuali) 
în timp ce pentru a invoca o procedură este nevoie de o instrucţiune 
specială implementată la nivelul limbajului (spre exemplu CALL în VB): 
CALL NumeProcedura (lista parametri actuali) 
lată un exemplu de problemă în care definim câteva module specializate 
(proceduri şi funcţii): să se calculeze media semestrială a studenţilor unei 
specializări ştiind că au fost doar două examene, fiecare cu o pondere diferită 
(0.4 x nota1+0.6 x nota2) în media finală. În acelaşi timp, pentru fiecare student 
să se afişeze dacă beneficiază de cazare şi/sau de bursă. Repartizarea în cămine 
a studenţilor se face pe baza mediei acestora : 7<=medie<8 -caminl, 
8<=medie<9 - camin2, 9<=medie<10 -camin3. Există două tipuri de burse 
repartizte astfel: 9<=med<9.5 - bursá studiu, 9.5<=med<10 - bursá merit . 
Datele de intrare se prezintă sub forma unei matrici (prima coloană =numele 
studenţilor iar următoarele două - notele) astfel: 


Student |10 | 10 
1 

Student |7 8 

2 

Student |9 6 

3 

Student |5 4 


FALSE 


Y 
STOP 


MED CalailM( Matrice(1,2),Matrice(1,3) 0.4, 0.6) 


—V_ 
/ WRITE NumeStud, “Bursa Studiu” / WRITE NumeStud, “Bursa Merit” / 


lată şi implementarea algoritmului în VB (faţă de schema de mai sus, 
procedura principal() a fost “îmbogăţită” cu declararea şi popularea explicită 
a tabloului Matrice si un apel la procedura de afişare ( Debug.Print()) pentru 
media fiecărui student) : 


Listing 1-1 Proceduri, Funcţii şi parametri în VB 


Sub principal() 
Dim Matrice(3, 2) 


Matrice(0, 0) = "Student1" 
Matrice(1, 0) = "Student2" 
Matrice(2, 0) = "Student3" 
Matrice(3, 0) = "Student4" 
Matrice(0, 1) = 10 
Matrice(1, 1) = 7 
Matrice(2, 1) 2 9 
Matrice(3, 1) = 5 
Matrice(0, 2) = 10 
Matrice(1, 2) = 8 
Matrice(2, 2) = 6 
Matrice(3, 2) = 4 


For i- 0 To 3 
Med = CalculM(Matrice(i, 1), Matrice(i, 2), 0.4, 0.6) 
Debug.Print ("media " & Matrice(i, 0) & " este: " & Med) 


If Med >= 5 Then 
Call RepartCamin(Matrice(i, 0), Med) 
Call RepartBurse(Matrice(i, 0), Med) 
Else 
Debug.Print ("Restante") 
End If 
Next 


End Sub 


Function CalculM(N1, N2, C1, C2) 

Media = 4 

If N1 >= 5 And N2 >= 5 Then 
Media = N1* C1 + N2 * C2 

End If 

CalculM - Media 


End Function 
Sub RepartCamin(NumeStud, MedS) 


If MedS >= 7 Then 
If MedS >= 8 Then 
If MedS >= 9 Then 
Debug.Print (NumeStud + "Camin3") 
Else 
Debug.Print (NumeStud + " Camin2") 
End If 
Else 
Debug.Print (NumeStud + " Caminl") 
End If 


Else 
Debug.Print (NumeStud + " Fara Camin") 
End If 
End Sub 
Sub RepartBurse(NumeStud, MedS) 
If MedS >= 9 Then 


If MedS >= 9.5 Then 
Debug.Print (NumeStud + " Bursa Merit") 


Else 
Debug.Print (NumeStud + " Bursa Studiu") 
End If 
Else 
Debug.Print (NumeStud + " Fara Bursa") 
End If 


End Sub 


x| 
af AE) | 
Sub principal () = B Projecti (Project 1.vbp) 
Dim Matrice(3, 2) 5 Forms 
Matrice(0, 0) = "Studenti" E Formi (Formi .Frm) 
Matrice(1, 0) = "Studentz" EL Formz (Form2.frm) 
Matrice(2, 0) = "Student3" 5 Modules 
Matrice (3, 0) = "Student4" A Begining (Module.bas) 
Matrice(0, 1) = 10 e CautareSortare (Cautare 
Hatrice(1, 1) = 7 e Moduli (Modult .bas) 
Matrice (2, 1) = 9 
Matrice(3, 1) = 5 Immediate, 9 
Matrice(0, 2) = 10 call principal) 
Matrice (1, 2) = 8 
Matrice(2, 2) = 6 media Studenti este: 10 
Matrice(3, 2) = 4 Studenti -Camin3 


Studenti Bursa Merit 
For i = 0 To 3 

Med = CalculM(Matrice(i, 1), Matrice(i, 2), 0.4, 0.6) 

Debug.Print (Chr(13) & "media " & Matrice(i, O) & " este: " & Med) 


media Student2 este: 7.6 
Studentz -Camini 
Student2 Fara Bursa 
If Med >» 5 Then 
Call RepartCamin(Matrice(i, 0), Med) 
Call Repartburse(Matrice(i, 0), Med) 


media Studentă este: 
Student3 -Camini 


Else Student3 Fara Bursa 
Debug.Print ("Restante") 
End If media Student4 este: 
Next Restante 
End Sub 
Function CalculM(Ni, N2, C1, C2) 
Media = 4 


If N1 >= 5 And N2 >= 5 Then 
Media = Ni * C1 + N2 * C2 


În majoritatea limbajelor o funcţie se încheie prin instrucţiunea Return 
<valoare>. În VB, instrucţiunea Return are o cu totul altă semnificaţie şi 
nu poate fi utilizată pentru a returna o valoare ca rezultat al unei funcţii 
. Pentru a returna rezultatul se considără chiar numele funcţiei o variabilă căreia i 
se atribuie valoarea de returnat. În exemplul de mai sus (functia 
calculM())media calculată şi atribuită variabilei Media este transmisă înapoi 
procedurii apelante (Principal) prin 


CalculM = Media 


Astfel, dacă în majoritatea limbajelor instrucţiunea Return presupune şi 
returnarea rezultatului şi încheierea execuţiei subrutinei, în VB, pentru a încheia 
o procedură îninte de efectuarea tuturor prelucrărilor (cu a/te cuvinte ieşirea 
forțată în functie de anumite condiții) utilizăm : 


Exit Sub 

lar pentru a încheia o funcţie utilizăm : 

Exit Function 

În momentul în care este întâlnită instrucţiunea Exit, rutina îşi opreşte 

execuţia exact în locul respectiv (indiferent dacă mai sunt şi alte instrucţiuni sau 
dacă este plasată într-o structură de control alternativă sau repetitivă). Trebuie 
avut în vedere în acest caz că întotdeauna funcţia trebuie să returneze o valoare: 
atribuirea valorii de returnat trebuie să se facă înainte de Exit Function. 


Astfel , dacă modificám funcţia CalculM() : 


Function CalculM(N1, N2, C1, C2) 

Media = 4 

If N1 >= 5 And N2 >= 5 Then 
Media = N1 * C1 + N2 * C2 

End If 

CalculM = Media 

Debug.print("After Process") 


End Function 
expresia "After Process" va fi afişată . 


Dar dacă modificarea se realizează în felul următor: 


Function CalculM(N1, N2, C1, C2) 

Media = 4 

If N1 >= 5 And N2 >= 5 Then 
Media = N1 * C1 + N2 * C2 

End If 

CalculM = Media 

Exit Function 

Debug.print("After Process") 


End Function 


expresia "After Process" nu va fi afişată (cu alte cuvinte nu se va executa 
procedura de scriere: Debug.print(..)) 

În VB, procedurile şi funcţiile sunt organizate în module cunoscute în general 
sub numele de biblioteci de funcții. Dacă scriem toate subrutinele din listingul 1-1 
într-un modul cu numele Modull, atunci apelul procedurii Principal () dintr-un 
alt modul va fi de forma : 

Call Modull.Principal 

(punctul ce desparte numele modulului de numele procedurii este esenţial 
(vom aborda această tehnică ceva mai târziu)) 


1.4.2. Două modalitaţi de transmitere a parametrilor. 


Există două variante de transmitere a argumentelor (mai bine zis a valorilor 
acestora) de la programul apelant către subrutiná: 

e prin adresă (sau prin referinţă) - modul implicit în Visual Basic- 
parametrii formali din procedura apelată vor prelua ca valoare adresa 
valorilor parametrilor actuali (vezi noţiunea de pointer). Ca urmare, atât 
variabilele din rutina apelantă cât şi cele ce constituie parametrii 
formali în subrutină vor manipula aceeaşi valoare: modificarea valorilor 
varibilelor ce constituie parametrii formali în cadrul subrutinei va 
însemna de fapt modificarea valorilor parametrilor actuali din rutina 
apelantă (vezi figurile 1-9 şi 1-10). 

* prin valoare - parametrii formali din procedura invocată vor prelua o 
copie a valorilor parametrilor actuali. Ca urmare, modificarea valorilor 
parametrilor formali în subrutină nu va afecta valorile parametrilor 
actuali din programul apelant (figurile 1-9 şi 1-11) 

Transmiterea prin valoare protejează variabilele din rutina principală ce 
constituie parametrii actuali, valoarea acestora rămânând întotdeauna 
neschimbată după execuţia subprogramului apelat, chiar dacă la nivelul acestuia 
valorile parametrilor formali se modifică. 

Având în vedere frecvenţa foarte ridicată a invocării diverselor funcţii şi 
proceduri într-o aplicaţie reală, la implementarea uneia sau alteia dintre cele 
două metode trebuie să se aibă în vedere următoarele aspecte: 

e transferul prin referinţă asigură o bună gestionare a memoriei interne 
(copierea valorilor la nivelul parametrilor formali necesită operaţii şi 
spaţiu de memorie suplimentare) dar oferă o breşă de securitate ce 
poate fi exploatată, în mod deliberat sau nu, de modulul apelat; 

e transferul prin valoare garantează imposibilitatea modificării parametrilor 
actuali (variabile locale ale modului apelant) dar implică operaţii pentru 
alocarea memoriei suplimentare şi copierea valorilor 


MEMORIE (RAM) 


Transfer prin referinţă Transfer prin valoare 
(b preia adresa valorii lui a) (b preia o copie a valorii lui a) 


Pas4: WRITE a 


Pojedi Parametri (Code) Rezultat execuţie 


testTransferP arametri() 


Sub testByVal(ByVal B) 

B = 35 

Debug.Print ("In subrutina: B=" & B) 
End Sub 


Inainte de apel subrutina: à-1 ^ 
In subrutina: B=45 
Dupa apel subrutina: à-45 


Sub testByRef(ByRef B) 

B = 45 

Debug.Print ("In subrutina: B=" & B) 
End Sub 


Sub testTransferParametri() 
a= 1 
Debug.Print ("Inainte de apel subrutina: 
Call testByRef (a) 
Debug.Print ("Dupa apel subrutina: A=" & a) 


End Sub 


Figura 1-8 Transmiterea valorilor parametrilor prin referinţă în VB (procedura principală: 
TestTransferParametri()) 


S Project Parametri (Cone) Rezultat execuţie 
|(Generaly - | testTransferParametri X | testTransferP arametri () 


Sub testByVal(ByVal B) 

B = 35 

Debug.Print ("In subrutina: B-" & B) 
End Sub 


Inainte de apel subrutina: A=1 
In subrutina: B=35 
Dupa apel subrutina: àÀ-1 


Sub testByRef(ByRef B) 

B = 45 

Debug.Print ("In subrutina: B=" & B) 
End Sub 


Sub testTransferParametri() 


Debug.Print ("Inainte de apel subrutina: à=" & a) 


all testByVal(a) 


Debug.Print ("Dupa apel subrutina: A=" & a) 


E 


Figura 1-9 Transmiterea valorilor parametrilor prin valoare în VB (procedura principală: 
TestTransferParametri()) 

Trebuie să mai spunem că există şi posibilitatea restrictionárii 
parametrilor la un anumit tip de dată. În exemplele de mai sus parametrii 
formali nu sunt declaraţi ca fiind de un anumit tip, astfel cá ei vor fi 
consideraţi în mod implicit de tip Variant. Tipul de date Variant permite 
VB să identifice tipul la momentul execuţiei în funcţie de valoarea 
variabilei respective. De cele mai multe ori este însă indicat să specificăm 
explicit tipul fiecărui parametru formal, astfel încât funcţia (sau procedura) 
să nu accepte alte tipuri de date care ar putea bloca prelucrările. 


Function f( pl As Integer, p2 As Double, p3 As String) 


O asemenea declaraţie obligă aplicatia-client (apelantă) să furnizeze 
parametri actuali de tipul specificat, în caz contrar obţinând un mesaj de 
eroare. Asta înseamnă că variabilele ce vor constitui parametrii actuali 
trebuie neapărat declarate de tipul respectiv. Cu alte cuvinte, o procedură 


de apel ar arăta astfel: 


Sub P() 
Dim pal as Integer 
Dim pa2 as Double 
Dim pa3 as String 
Pal-1 
Pa2=3.5 
Pa3z"text" 
Rez-f(pal,pa2,pa3) 
End sub 


În cazul în care nu dorim 


2. Organizarea datelor (Structuri de date). 


La nivelul sistemului de calcul, memoria internă este organizată în celule (în 
majoritatea cazurilor cu dimensiune de 1 octet=8biţi) cu adrese consecutive. În 
mod normal însă, este mai convenabil să organizăm datele sub forma unor 
structuri abstracte, familiare. Spre exemplu vânzările săptămânale ale unei firme 
vor fi organizate într-o formă tabelară, cu produsele vândute sub formă de 
coloane şi zilele săptămânii sub formă de linii. 

Obiectivul secţiunii ce urmează este de a înţelege mecanismele prin care 
programatorul gestionează datele conform viziunii sale abstracte asupra acestora 
şi nu după organizarea actuală la nivelul memoriei interne. 


2.1. Tablouri 


Una din cele mai utilizate structuri de date este tabloul (array), structură care 
prezintă datele într-o formă rectangulară, fiecare valoare fiind stocată într-o 
celulă astfel încât programatorul poate la un moment dat manipula valoarea 
respectivă prin intermediul poziției sale. Identificarea valorii prin intermediul 
poziţiei sale în cadrul tabloului (cu alte cuvinte identificarea celulei de memorie 
internă ce conţine respectiva valoare) cade în sarcina translatorului limbajului de 
programare cu care se lucrează. Există două tipuri de tablouri: unidimensionale şi 
multidimensionale. 

Tablouri Unidimensionale (figura 2-1)- tablouri cu o singură linie şi n 
coloane numite şi vectori- reprezintă datele sub forma unei liste ordonate de 
celule de memorie (cu adrese consecutive) căreia i se atribuie un nume pentru 
identificare. Fiecare celulă va stoca o valoare. Accesul la o anumită valoare se 
realizează prin numele listei şi poziţia (numită şi index) elementului în listă. Spre 
exemplu notele unui student la patru discipline dintr-un semestru pot fi 
reprezentate prin intermediul unui vector cu numele Note, ce va conţine, patru 
valori localizate fizic în patru celule de memorie cu adrese consecutive. Pentru a 
manipula nota la cea de-a doua discplină, vom utiliza o sintaxă de genul Note(2) 
(sau Note[2] în funcţie de limbajul utilizat) astfel: pentru preluarea notei putem 
spune: 

Note(2)=8.7 
lar pentru a calcula ulterior media: 
Medie= (Note(1)+Note(2)+..)/4 

Numele tabloului (Note) este în esenţă un pointer (o variabilă ce conţine o 
adresă) spre valoarea din prima celulă a tabloului. Astfel, pentru a extrage o 
valoare de la o anumită poziţie, translatorul va trebui să identifice adresa celulei 
respective. Ştiind că adresele sunt consecutive, şi deţinând prima adresă (101 - 
vezi figura 2-1), adresa notei la a treia disciplină se obţine prin : 101+(3-1)=103. 
lată de ce Note(3) va returna întotdeauna valoarea de la adresa de memorie 103 
(în exemplul nostru fiind vorba de nota 6) 


Adrese de memorie 
101 102 103 104 


Celule de memorie 


Note(1) 
Note(2) 
Note(3) 
Note(4) 


Figura 2-10 


Tablouri Multidimensionale - reprezintá in fapt structuri de tablouri 
unidimensionale ale cáror elemente (noduri sau celule) sunt alte tablouri 
unidimensionale. Cel mai utilizat tablou multidimensional este matricea (tablou 
cu linii şi coloane - 2 dimensiuni). Spre exemplu dacă ar trebui să reprezentăm 
notele tuturor studenţilor unei secţii pe primul semestru, presupunând că sunt 4 
examene, am putea construi un tabel în care pe fiecare line să reprezentăm 
notele unui alt student. 

10 7 5.5 6 [> Sudeni 


4 9 9 10 L—» Student? 
10 10 9 > Student3 


10 
"uU Disciplina 4 


Disciplina 2 


Disciplina 3 


Structura de date astfel obţinută este uşor de abordat de programator, fiind 
un mod familiar de reprezentare a datelor. Manipularea datelor se realizează prin 
intermediul unei sintaxe similare celei prezentate la tablourile unidimensionale, 
doar că identificarea poziţiei unui element se realizează prin numărul liniei şi al 
coloanei. Astfel, dacă numele tabloului ar fi Note, nota studentului 2 la disciplina 
1 se obţine prin: Note(2,1) adică Note(linie, coloană). Pentru a modifica 
nota studentului 1 la disciplina 3 vom scrie: 

Note(1,3)=5.5 
lar pentru a obţine media notelor studentului 2 la cele patru discipline: 

MedieS2= (Note (2,1)+Note(2,2)+Note(2,3)+Note(2,4))/4 

adică 4+9+9+10/4 


După cum ştim, memoria internă a maşinii de calcul este organizată în celule 
cu adrese consecutive. Ca urmare, translatorul limbajului de programare va 
trebui să simuleze modalitatea tabelară de organizare a datelor. În esenţă, liniile 


(în exempl;ul nostru 4 celule de date) vor fi stocate în ordinea naturală, într-o 
structură liniară de celule de memorie cu adrese consecutive (primele patru 
celule de memorie vor constitui prima linie, următoarele patru vor constitui cea 
de-a doua linie, ş.a.m.d - vezi figura 2-2). Numele tabloului (Note) este de fapt o 
variabilă-pointer spre prima valoare din şirul astfel obţinut. Având în vedere că 
ştim prima adresă a şirului de celule de memorie ce stochează valorile noastre, şi 
că adresele respectivelor celule sunt întotdeauna consecutive, adresa fizică a 
unui element al tabloului (valoare manipulată la nivelul limbajului prin 
Note(i,j)) poate fi calculată. Translatorul va efectua acest calcul pentru a 
returna valoarea de la linia ;, coloana j. Dacă C reprezintă numărul de coloane, 
adresa fizică a elementului Note(i,j) se obţine prin adăugarea la adresa primului 
element a numărului obţinut prin: 

(Cx(i-1)) + (j-1) 

Spre exemplu (vezi si figura 2-2) pentru a calcula adresa la care se află 
valoarea Note(3,2) (adică nota la discipl. 2, studentul 3 care este 10), ştiind că 
adresa primei celule (spre care "tine" o referinţa variabila Note) este 100 : 

adresa element (3,2)=100+ 4x(3-1)+(2-1)=100+8+1=109 


Tabloul Note la nivel conceptual 


Linia 3 | 


100 101 102 그 03 101 105 106 107 108 10 110 11 


Adrese consecutive ale celuldor de a 
nemre /aloarea Note (3,2) 


Reprezentarea tabloului în | i Tiia 1 | Linia?! 
mennrie h 1 i 


Figura 2-11 Reprezentarea matricilor în memorie 


Observaţie. Datorită modalităţii specifice de adresare a memoriei (celule cu 
adrese consecutive) tablourile se mai numesc şi structuri statice de date, 
adică structuri a căror dimensiune (număr de elemente) este cunoscută la 
momentul compilării şi nu poate fi modificată pe parcursul execuţiei programului. 
În toate limbajele de programare tablourile se declară în mod explicit la 
momentul scrierii codului, prin declarare programatorul fiind obligat să specifice 
numărul maxim de elemente. La momentul compilării, se alocă memorie (celule 
cu adrese consecutive) pentru numărul maxim de elemente (nr. linii x nr. 


coloane). /mposibilitatea redimensionării ulterioare (pe parcursul execuţiei 
programului ) provine din faptul că nu se poate şti dacă la momentul solicitării de 
noi poziții vor exista suficiente celule de memorie libere cu adrese consecutive 
adresei ultimei celule a tabloului. 

De asemenea trebuie precizat că indexul primului element poate fi 0 (zero) 
sau 1 în funcţie de limbajul de programare (cu alte cuvinte elementele se numără 
începând cu 0 sau cu 1) . În VB, în mod implicit indexul primului element este 0 
(zero). Spre exemplu, în VisualBasic dimensionám un array (tablou) cu 
instrucţiunea DIM astfel: 

DIM Note(4) - tablou unidimesional cu 5 elemente (de la 0 la 4) 

DIM Note(3,4) - tablou bidimensional cu 4 linii şi 5 coloane (primul element 
fiind Note(0,0)) 

Astfel, pentru a dimensiona tablourile exemplificate în figurile 2-1 şi 2-2, în VB 
ar trebuie să scriem: 

DIM Note(3) 

DIM Note(2,3) 


Figura 2-3 (vezi şi opeartorul de concatenare a două şiruri în secţiunile 
anterioare) prezintă un exemplu VB de declarare şi populare automată cu date a 
unui vector şi a unei matrici ce reprezintă notele studenţilor la patru discipline 
(vezi exemplele anterioare şi figura 2-1 şi 2-2) şi afişarea elementelor acestora. 
Notele vor fi numere aleatoare de la 0 la 10 generate de funcţia Rnd. Funcţia 
returnează un număr între 0 şi 1 care înmulţit cu un alt număr (n) va determina 
obţinerea de valori aleatoare între 0 şi n. Funcţia Round(n,nrZec) returnează 
numărul zecimal n rotunjit la nrZec zecimale . 

Listing 2-1 Procedura de populare şi manipulare elemente tablouri 
Sub Tablouri() 


Dim VectorNote(3) 
Dim MatriceNote(2, 3) 


For i = 0 To 3 

VectorNote(i) - Round(Rnd * 10, 2) 

Debug.Print ("VectorNote(" & i & ")z" & VectorNote(i)) 
Next 


Debug.Print ("------------------------------------ 2) 
For i = 0 To 2 
For j = 0 To 3 
MatriceNote(i, j) = Round(Rnd * 10, 2) 
Debug.Print ("MatriceNote(" & i & "," & j & ")z" & MatriceNote(i, j)) 


Next 
Next 


Debug.Print ("------------------------------------ 2) 
MediaStudl = (MatriceNote(0, 0) + MatriceNote(0, 1) . 

+ MatriceNote(0, 2) + MatriceNote(0, 3)) / 4 
Debug.Print ("Media studentului 1-2" & MediaStudl) 


End Sub 


ur 


În procedura de mai sus, semnul (underscore) permite scrierea unei 
comenzi sau a unei operaţii pe mai multe rânduri. 


Call Tablouri() 


Rezultatul execuţiei procedurii Tablouri () va fi cel din figura 2-3 
Immediate 00000 


VectorNote(0)-27.06 = 
VectorNote([1)-275.33 
VectorNote(2)-75.8 
VectorNote(3)72.9 
MatriceNote([0,0)23.02 
MatriceNote(0,1)27.75 
MatriceNote(0,z2)-720.14 
MatriceNote(0,3)27.61 
HatriceNote [1,0)=8.14 
HatriceNote [1,1)=?.09 
HatriceNote [1,2)=0.45 
HatriceNote [1,3)=4.14 
HatriceNote (2,0)=8.63 
HatriceNote [2,1)=?.9 
MatriceNote(2,2)73.74 
HatriceNote (2,3)=9.62 


Media studentului 1=4.63 


Figura 2-12 Fereastra Immediate afişează mesajele trimise din procedura Tablouri() 


După cum s-a văzut anterior (listing 2-1), pentru a parcurge un vector element 
cu element utilizăm o buclă FOR a cărei variabilă-contor va fi utilizată pe post de 
index pentru a manipula valorile de la respectiva poziţie în vector. Pentru a 
parcurge o matrice, element cu element, avem nevoie de două structuri 
repetitive FOR imbricate (una pentru linii iar următoarea pentru fiecare coloană). 
În acest fel parcurgerea va însemna mai întâi prelucrarea elementelor primei linii 
(în ordine de la stânga la dreapta) apoi a elementelor celei de-a doua 11011 
s.a.m.d. 

Se observá cá 10 procedura Tablouri() pentru a parcurge tablourile, limita 
inferioará si superioará a contorului buclelor FOR (i si j) se specificá prin literali 
(0,2,3). Existá si posibilitatea de obtine valoarea acestor literali (adicá a limitei 
superioare si inferioare a indexului unui tablou), prin utilizarea urmátoarelor 
functii predefinite in VisualBasic: 


LBound(«tablou» [,dimensiune]) — pentru limita inferioará; 
UBound(<tablou> [,dimensiune]) - pentru limita superioară. 


Parametrul dimensiune este optional si specificá in mod implicit dimensiunea 
1. Pentru matrice dimensiunea 1 înseamnă liniile iar dimensiunea 2 înseamnă 
coloane. Cu alte cuvinte: 


LBound 
UBound 
LBound 
UBound 


MatriceNote)=LBound (MatriceNote,1)=0 
MatriceNote)=UBound (MatriceNote,1)=2 
MatriceNote, 2)=0 
MatriceNote, 2)=3 


— ~ ~ 


Astfel, procedura Tablouri () din listingul 2-1 poate fi scrisă şi astfel: 


Listing 2-2 Utilizarea functiilor UBound() şi LBound() 
Sub Tablouri2() 


Dim VectorNote(3) 
Dim MatriceNote(2, 3) 


For i = LBound(VectorNote) To UBound(VectorNote) 
VectorNote(i) - Round(Rnd * 10, 2) 
Debug.Print ("VectorNote(" & i & ")z" & VectorNote(i)) 
Next 


Debug.Print ("------------------------------------ S) 


For i = LBound(MatriceNote, 1) To UBound(MatriceNote, 1) 
For j = LBound(MatriceNote, 2) To UBound(MatriceNote, 2) 
MatriceNote(i, j) = Round(Rnd * 10, 2) 
Debug.Print ("MatriceNote(" & i & "," & j & ")z" & MatriceNote(i, j)) 


Next 
Next 
Debug.Print ("------------------------------------ 2 
MediaStudl = (MatriceNote(0, 0) + MatriceNote(0, 1) . 
+ MatriceNote(0, 2) + MatriceNote(0, 3)) / 4 
Debug.Print ("Media studentului 1=" & MediaStudl) 


End Sub 


Elementele unui tablou sunt ín mod implicit de tip Variant 
Existá insá si posibilitatea specificárii tipului elementelor astfel: 
Dim Tablou(5) As Integer > va accepta doar numere întregi 
Dim Tablou(3,4) As String > toate elementele vor fi de tip String 
(şiruri de char) 
Dacă însă o matrice trebuie să stocheze date de diverse tipuri, va trebui 
declarată conform modelului implicit. 
De retinut(pentru cazul VisualBasic) : 
e Nu putem utiliza un tablou dacă nu este în prealabil declarat (pentru a se 
aloca memorie) cu instructiunea DIM 
e Dacă tabloul este definit prin modalitatea clasică DIM tablou(N), indexul 
elementelor în tablou porneşte întotdeauna de la 0 şi se opreşte la N. Cu alte 
cuvinte, se alocă memorie pentru N+1 elemente. Ca urmare, pentru a 
declara un tablou de 10 elemente : DIM Tablou(9), sau o martice de 10x10: 
DIM Matrice(9,9) 
e Tablourile se pot declara si prin specificarea explicită a limitelor indecsilor: 


DIM Tablou(1 to 9) [] un vector cu 9 elemente (index minim-1, 
indexmaxim=9 

DIM Matrice(1 to 9, 1 to 9) [] matrice 9 linii si 9 coloane (primul 
element- Matrice(1,1), ultimul element- matrice(9,9)) 


e Indexul (numărul coloanei sau numărul liniei) trebuie să se încadreze 
întotdeauna între limita minimă (0 zero) şi limita maximă declarată. Cu alte 
cuvinte, încercarea de a atribui o valoare sau de a citi un element care nu are 
alocat spaţiu de memorie se va solda cu o eroare. Spre exemplu (vezi şi listing 
2-2): 

MatriceNote(6,4)=6.5 
va genera o eroare de execuţie cu mesajul Subscript Out Of Range 

e În VB există şi posibilitatea declarării unor vectori (tablouri unidimensionale) 
dinamici atunci când nu se ştie de la început care va fi numărul elementelor, 
astfel: 

Dim Vector() > nu se specifică indexul maxim 


În acest caz, la momentul declarării nu se alocă spaţiu de memorie urmând 
ca programatorul să includă instrucţiunea 

Redim Preserve Vector(Ubound(vector)+1)  - atunci când are 
nevoie de spatiu pentru incá un element. Clauza Preserve este 
obligatorie dacá se doreste  pástrarea valorilor elementelor anterioare 
deoarece, in esenţă, instrucţiunea Redim determină crearea unui alt 
vector cu numarul de elemente specificat > clauza Preserve determină şi 
copierea vechilor valori în noile locaţii. 


lată un exemplu: 
Dim V() As String 


ReDim V(0) "primul element trebuie intotdeauna alocat explicit 
V(0) = "texto" 

ReDim Preserve V(UBound(V) + 1) 

V(1) = "text1" 


Debug.Print (V(0) + V(1)) 
Va afişa "textOtext1" 


2.2. Structuri de date compozite (definite de 
utilizator). 


Am văzut în secţiunile anterioare că orice algoritm necesită date de 
prelucrare, date care sunt în general de două tipuri: elementare sau 
primitive (simboluri şi numere) şi date structurate (spre ex. tablouri). De 
multe ori însă un algoritm poate fi mult mai comod exprimat prin utilizarea 
unor structuri de date compuse care să reprezinte cu mai multă acuratețe 


datele din lumea reală. Spre exemplu, o aplicaţie de gestiune a traiectoriei 
şcolare a studenţilor unei facultăţi ar putea fi mai uşor modelată dacă am 
ptutea defini date precum: Student, Disciplina. Aceste noi tipuri de date 
ar trebui să descrie o entitate din lumea reală (spre exemplu entitatea 
Student ar putea fi descrisă prin: matricol, nume, grupa, note), cu 
alte cuvinte ar trebui să constituie un şablon pe baza căruia algoritmul să 
manipuleze datele despre un anumit student sau o anumită disciplină într- 
o manieră unitară. 


DEFINIREA TIPURILOR 
Majoritatea limbajelor de programare oferă posibilitatea definirii unor 
structuri de date proprii, compuse fie pe baza celor primitive (predefinite) 
fie pe baza altor tipuri compuse. În VisualBasic o structură proprie poate fi 
definită astfel: 
TYPE denumireTip 
<atribut 1» AS <tipAtribut 1> 
<atribut 2» AS <tipAtribut 2> 


<atribut N> AS <tipAtribut 1> 
END TYPE 
Aşadar elementele esenţiale ale unui tip nou de date sunt: 

- denumirea noului tip 

- numele atributelor ce descriu acel tip 

- tipul de dată al fiecărui atribut - poate fi un tip primitiv 
(Integer, Double, String, etc.), un tip structurat (tablou), sau 
un alt tip compozit definit anterior 

În VB, definirea tipurilor proprii trebuie obligatoriu realizată în secţiunea 
Declarations a unui modul (adică imediat la începutul modulului). 

Spre exemplu, putem construi un nou tip de dată, cu numele Student, 
descris prin atributele: matricol, nume, datanasterii şi un vector cu 5 note 
pentru disciplinele unui anumit semestru (vezi figura 2-4). Desigur, 
numărul de atribute descriptive ale noului tip depinde doar de imaginaţia 
şi experienţa programatorului şi de necesităţile problemei. 


+ Project - 110091169.00109219 (6909) 


(General) ㅠ (Declarations) 


Option Explicit 


Public Type Student 
Hatricol às String 
Nume às String 
DataNasterii is Date 
Note(1 To 5) às Double 


Figura 2-13 Declararea unui nou tip de date 


Notă. Prin cuvântul cheie Public precizám cá tipul va fi accesibil si din 
alte module. Dacá dorim 58 fie accesibil doar 10 cadrul moduluilui de 
definire, specificăm Private. 

MANIPULAREA NOILOR STRUCTURI DE DATE PRIN INTERMEDIUL 
VARIABILELOR, TABLOURILOR ŞI PARAMETRILOR 

O dată declarat noul tip, se pune problema utilizării lui. A utiliza un tip 
înseamnă de fapt a declara o variabilă (sau mai multe) ca fiind de acel tip 
şi a atribui valori efective fiecărui atribut în parte. Spunem atunci că 
identificăm o instanţă a tipului respectiv. Cu alte cuvinte, identificăm o 
entitate din lumea reală şi o descriem prin intermediul şablonului, luând în 
considerare doar atributele definite pentru structura respectivă. Lucrurile 
pot fi văzute şi din perspectiva similitudinii cu bazele de date. Astfel, 
definiţia (structura) unei tabele a bazei de date nu este altceva decât o 
formă descriptivă a unei anumite entităţi din domeniul problemei. 
Înregistrările tabelei sunt instanţe ale acelei entităţi, adică valori reale 
setate pentru fiecare din atributele tabelei. 

În listingul 2-3 este prezentat un exemplu de manipulare a datelor de 
tip Student. Se observă că se declară două variabile de tip Student, 
variabile prin intermediul cărora vom manipula datele a doi studenţi. 


Listing 2-3. Utilizarea tipurilor compozite pentru manipularea datelor 
entităţilor reale. 


Sub aplicatieSimpla() 
Dim stud 1 As Student 
Dim stud 2 As Student 
Dim i As Integer 


stud 1.Nume = "Gigel" 

stud 1.Matricol = "EL101" 

stud l.DataNasterii = 410/31/19824 
stud 1.Note(1) = 10 


stud 1.Note(2) = 8 
stud 1.Note(3) = 5 
stud 1.Note(4) = 7 
stud 1.Note(5) = 10 


stud 2.Nume = "Costel" 
stud 2.Matricol - "EL102" 
stud 2.DataNasterii = 42/22/19824 


stud 2.Note(1) - 10 
stud 2.Note(2) = 9 
stud 2.Note(3) = 10 
stud 2.Note(4) = 9 
stud 2.Note(5) - 10 


Debug.Print ("notele studentului " & stud 1.Nume) 
For i =1To5 

Debug.Print (stud 1.Note(i)) 
Next 


End Sub 


aplicatieSimp la 
notele studentului Gigel 
10 


Figura 2-14 rezultatul execuţiei procedurii din listingul 2-3 


Aspectul esenţial ce trebuie reținut în exemplul de mai sus se referă la 
notația cu punct. Astfel, se observă că spre deosebire de variabilele 
declarate de tipuri primitive, pentru tipurile compozite atribuim valori 
atributelor după o schemă de genul: 

numeVariabilă.numeAtribut=valoare 

unde valoarea trebuie să fie de tipul declarat la costruirea şablonului- 
tip. 

Prin notația cu punct valoarea atributului este strict asociată variabilei 
ce descrie entitatea respectivă. Cu alte cuvinte, studentul 1 este 
reprezentat în exemplul nostru de variabila 5140 1 şi are numele “Gigel”, 
data naşterii 31-10-1982 etc. Pentru studentul 2 desemnăm o altă 
variabilă, stud 2, care preia alte valori pentru aceleaşi atribute 
(nume=Costel, dataNasterii=22-2-1982) aceste valori fiind strict asociate 
variabilei stud 2. 

În cazul în care atributul este de tip tablou, accesul la elementele 
acestuia se realizează în mod similar variabilelor simple de tip tablou, doar 
că se mai adaugă la stânga variabila-entite şi punctul corespunzător 


pentru a specifica entitatea de care vor aparţine valorile elementelor 
tabloul respectiv. În exemplul de mai sus, pentru a atribui a doua notă 
studentului Gigel, procedam astfel: 

stud 1.Note(2) = 8 

Variabilele prin care se gestionează datele pentru tipurile compozite pot 
fi utilizate în mod similar variabilelor clasice - pot fi contruite tablouri de 
elemente de tipul respectiv (în exemplul nostru - Student) şi pot constitui 
parametri ai unor funcții sau procedurii. 

În exemplul ce urmează ne propunem să construim o funcţie care să 
primească drept argument o instanţă Stundent şi să returneze media 
notelor studentului respectiv. 


Listing 2-4 Funcție cu parametru de tip compozit (Student) 
Function calculMedia(stud As Student) 


Dim sumaNote As Double, restanta As Boolean, i As Integer 
sumaNote = 0 
restanta = False 
For i = LBound(stud.Note) To UBound(stud.Note) 
If stud.Note(i) < 5 Then 
restanta - True 
Exit For 
Else 
sumaNote = sumaNote + stud.Note(i) 
End If 
Next 
If restanta Then 
calculMedia 
Else 
calculMedia = sumaNote / UBound(stud.Note) - LBound(stud.Note) + 1 
End If 


4 


END Function 


Vom utiliza această funcţie într-o aplicaţie precum cea din listingul 2-5. 
Procedura aplicatie() constă în construirea unui vector de "studenti" 
(elementele vectorului vor fi de tip Student), atriburea unor note 
aleatoare fiecărui student şi invocarea funcţiei cal culMedia() cu fiecare 
element al vectorului drept parametru actual. 

Se observă că, în mod similar variabilelor, atributele unui element al 
vectorului vectStudenti se accesează prin utilizarea notatiei cu punct: 


vectStudenti (1) .Nume = "Gigel" 


Cu alte cuvinte, studentul 1 va avea numele “Gigel”, studentul 2 va 
avea numele “Costel” ş.a.m.d. 
Listing 2-5. Structurarea instanţelor tipurilor compozite ca elemente ale unui 


tablou si utlizarea lor ca parametri pentru functii/proceduri 
Sub Aplicatie() 


Dim vectStudenti(1 To 4) As Student 


vectStudenti (1) .Nume = "Gigel" 
vectStudenti(1) .Matricol = "EL101" 
vectStudenti (1) .DataNasterii = 410/31/19824 


vectStudenti (2) .Nume = "Costel" 
vectStudenti(2).Matricol = "EL102" 
vectStudenti(2).DataNasterii = 42/22/19824 


vectStudenti(3).Nume = "Fanel" 
vectStudenti(3).Matricol = "EL103" 
vectStudenti(3).DataNasterii = 43/1/19814 


vectStudenti (4) .Nume = "Gerogel" 
vectStudenti(4).Matricol = "EL104" 
vectStudenti(4).DataNasterii = 47/28/19844 


' atribuim 5 note aleatoare pentru fiecare student si le afisam 
' apoi afisam media 
Dim textSirNote As String, i As Integer, k As Integer, randomNota,media As Double 


For i = 1 To 4 
textSirNote = "" 
For k= 1 To 5 
randomNota Rnd * 10 + 4 
randomNota = IIf(randomNota > 10, 10, randomNota) 
vectStudenti(i).Note(k) = Round(randomNota, 2) 
textSirNote - textSirNote & vectStudenti(i).Note(k) & " , " 
Next 
Debug.Print (vectStudenti(i).Nume & "-->note:" & textSirNote) 


media- calculMedia(vectStudenti(i)) 
Debug.Print (vectStudenti(i).Nume & "-->are media:" & media) 
Next 


END SUB 
Notă. Funcţia IIF (if imediat) o putem utiliza în locul unei structuri IF- 


THEN-ELSE şi are următoarea definiţie: 
IIF(conditie, val return if True, val return if false) 
lată şi rezultatul execuţiei procedurii din listingul 2-5 


aplicatie 
Gigel-->note:10 , 
Gigel-->media:8.61 
Costel--»note:10 , 
Costel-->media: 4 


Fanel--»note:4.45 
Fanel--»media:4 

Gerogel--»note:10 
Gerogel--»media:4 


Figura 2-15 executia procedurii din listingul 2-5 


Important! Transmiterea parametrilor declaraţi de tipuri compozite se 
realizează doar prin referinţă. Ca urmare, nu putem specifica unei 
proceduri/functii să preia valorile parametrilor prin valoare (By Val). 


COMPUNEREA TIPURILOR 

Am văzut mai devreme că atributele ce descriu un tip compozit pot fi de 
tipuri primitive (String, Double, Date, etc.) cât şi tipuri structurate 
(tabloul Note pentru exemplul tipului Student). Există însă şi posibilitatea 
de a declara un atribut al unui tip compozit ca fiind de un alt tip compozit. 
Mai mult, un atribut poate stoca o structură (tablou) de entităţi din alte 
tipuri. Astfel, dacă ne propunem să gestionăm, într-o aplicaţie, gupe de 
studenţi, putem spune că o grupă este caracterizată de un număr şi un 
ansamblu de elemente de tip Student ce vor reprezenta studenţii grupei 
respective. Prin abstactizare, putem defini un nou tip, Grupa, astfel: 


Type Grupa 
idGrupa As Long 
studenti() As Student 

End Type 

Declararea unui atribut ca fiind de un tip compozit sau tablou de 
elemente . compozite este cunoscută sub numele de compunerea 
tipurilor. Astfel, spunem că am compus un tip nou, Grupa, prin utilizarea 
tipului Student definit anterior. 

În definiţia noului tip, atributul studenti este definit ca vector de 
elemente Student fără a i se preciza dimensiunea, urmând ca, la 
momentul instantierii tipului Grupa (constituirea unei grupe reale) să 
furnizăm acestui atribut un tablou cu instanţe Student în funcţie de 
numărul de studenţi din grupa respectivă. 

Exemplul următor construieşte o grupă de studenţi, apoi atribuie note 
în mod aleator fiecăruia, iar în final afişează notele şi media (prin 
invocarea funcţiei cal culMedia() definită în listingul 2-4). 


Listingul 2-6. Manipularea datelor tipurilor compuse pe baza altor tipuri. 


Sub Aplicatie 2() 
Dim vectStudenti(1 To 4) As Student 


' Construim o instanta grupa si atribuim tabloul de mai sus atributului studenti 
Dim grupa 1 As Grupa 
grupa l.idGrupa - 311 
grupa_1.studenti = vectStudenti 


grupa l.studenti(1).Nume = "Gigel" 
grupa l.studenti(1).Matricol = "EL101" 
grupa _1.studenti (1) .DataNasterii = 410/31/19824 


grupa_1.studenti(2).Nume = "Costel" 
grupa _1.studenti(2).Matricol = "EL102" 
grupa_1.studenti (2) .DataNasterii = 42/22/19824 


grupa _1.studenti(3).Nume = "Fanel" 
grupa l.studenti(3).Matricol = "EL103" 
grupa _1.studenti (3) .DataNasterii = 43/1/19814 


grupa _1.studenti (4) .Nume = "Gerogel" 
grupa l.studenti(4).Matricol = "EL104" 
grupa_1.studenti (4) .DataNasterii = 47/28/19844 


' atribuim 5 note aleatoare pentru fiecare student al grupei si le afisam 


' apoi afisam media 


Dim textSirNote As String, i As Integer, k As Integer, 


For i = LBound(grupa 1.studenti) To UBound(grupa 1.studenti) 


textSirNote = "" 


randomNota As Double 


For k = LBound(grupa 1.studenti(i).Note) To UBound(grupa 1.studenti(i).Note) 


randomNota = Rnd * 10 + 4 


randomNota - IIf(randomNota » 10, 10, 


grupa l.studenti(i).Note(k) = Round(randomNota, 2) 
textSirNote = textSirNote & grupa 1.studenti(i).Note(k) & " , " 
Next 
Debug.Print (grupa l.studenti(i).Nume & "-->note:" & textSirNote) 
Debug.Print (grupa l.studenti(i).Nume & "--»media:" 
& calculMedia(grupa 1.studenti(i))) 


Next 


End Sub 


aplicatie_2 
Gigel-->note:9.25 
Gigel--»1media:4 
Costel--»note:6.98 , 
Costel-->media:8.082 


Fanel-->note:10 , 10 , 9.89 
Fanel--»media:9.978 
Gerogel--»-note:6.27 , 10, 
Gerogel--»media:98.41 


Figura 2-16 rezultatul executiei procedurii din listingul 2-6 


Si în acest caz, esențial de remarcat este utilizarea notatiei cu 


punct pentru a accesa valorile atributelor de tipuri compozite. 
Schema generală este: 


variabilaEntitate.atributEntitate.atributPrimitiv = valoare 


Astfel, pentru exemplul din listingul 2-6, pentru a modifica numele 
primului student al grupei 311 (Gigel) scriem următoarea operaţie de 
atribuire 


Grupa _1.studenti (1) .nume=”Apetrei Marius” 


În mod similar, pentru a modifica a doua notă a studentului 3 din grupa 
1, scriem următoarea operaţie: 


Grupa _1.studenti (3) .Note(2)=8 


Spunem astfel că am modificat elementul 2 al tabloului note (de tip 
primitiv Double) asociat elementului-entitate 3 al tabloului studenti (de 
tip Student) asociat variabilei-entitate(de tip Grupa) grupa 1. 

Bineînţeles că nu ne opreşte nimeni să construim încă un tip, cu numele 
Facultate, descris prin structura: 

TYPE Facultate 

denumire As String 
adresa As String 
grupe() As Grupa 

END TYPE 


2.3. Clase si obiecte. Scurtă introducere în 
programarea orientată-obiect 


În decursul istoriei programării, multă vreme s-a considerat că orice 
problemă poate fi rezolvată printr-un algoritm sau un ansamblu de 
algoritmi. Cu alte cuvinte, o problemă era adaptată pentru a fi modelată 
“pe înţelesul” maşinii de calcul. O aplicaţie consta în asamblarea unor 
module ce descriu algoritmic o anumită manieră de manipulare a datelor. 

Odată cu creşterea complexităţii aplicaţiilor, a fost inventată o nouă 
modalitate de organizare a datelor: crearea unor tipuri derivate (definite 
de programator) ce reprezentau concepte din spaţiul problemei. Astfel, 
pentru a reprezenta entităţi din lumea reală, şabloanele anterior construite 
erau utilizate prin asocierea unor valori explicite atributelor descriptive ale 
acelui tip de entitate. Ca urmare, într-un algoritm, datele puteau fi 
reprezentate şi manipulate într-o manieră abstractizată, mult mai 
apropiată de modelul de gândire natural uman. 

La un moment dat însă, în procesul de abstractizare s-a mai făcut un 
pas: tipurilor compozite li se pot asocia operaţii, transformânau-se 


astfel din structuri de date pasive, manipulate de algoritmi supervizori, în 
unități active ce definesc un anume comportament ca răspuns la stimuli 
externi. Aceste noi tipuri au fost numite clase , operaţiile au fost numite 
metode, iar instanțele lor (elemente din lumea reală aparţinând acelui tip) 
au fost numite obiecte. Metodele nu sunt altceva decât proceduri şi/sau 
funcţii care se asociază în mod indivizibil claselor şi prin care 
programatorul specifică ansamblul de operaţii ce pot fi realizate de 
obiectele ce provin din acea clasă. Asta înseamnă că acele obiecte pot să- 
şi manipuleze singure datele componente (valorile atributelor), sau pot să 
furnizeze un rezultat, ca urmare a unui apel provenit de la un alt obiect. 
Aceste apeluri sunt numite generic mesaje. Astfel, problemele pot fi 
modelate într-un mod foarte natural, ca un ansamblu de obiecte ce 
comunică între ele, iar atunci când citim rezolvarea (codul aplicaţiei) 
înţelegem şi problema în sine. 

Obiectele pot fi caracterizate prin stare şi comportament. Definim 
starea obiectului ca fiind setul de valori al atributelor unui obiect la un 
moment dat. Comportamentul este dat de ansamblul operaţiilor 
(metodele) pe care le poate efectua un obiect. 

Limbajele care oferă suport pentru definirea claselor şi manipularea 
obiectelor prin mesaje se numesc /imbaje orientate-obiect. 

În această nouă viziune, procesul de dezvoltare a unei aplicaţii se 
axează pe identificarea entităţilor (conceptelor cheie) din spaţiul 
problemei şi a operaţiilor pe care le realizează aceste entităţi. O dată 
identificate atributele descriptive ale fiecărei entităţi şi implementate 
operaţiile sub formă de metode, aplicaţia în sine va presupune 
implementarea unei tehnici de manipulare a obiectelor şi transmiterea de 
mesaje între acestea. Fiecare obiect va asigura o porţiune distinctă din 
logica aplicaţiei. 

Deşi elementele descrise mai sus pot fi implementate, Visual Basic nu 
este un limbaj care poate fi numit orientat-obiect, pentru că nu oferă 
suport pentru alte câteva concepte esenţiale ale programării orientate- 
obiect (moştenire, suprascriere, supraîncărcăre, polimorfism), concepte ce 
nu au fost descrise aici pentru că depăşesc obiectivul acestui curs. 

Pentru exemplificare acestui stil de programare vom porni de la tipurile 
Student şi Grupa definite în secţiunea anterioară. La momentul respectiv 
constriserăm o funcţie, calculMedia(stud as Student) (listing 2-4), cu 
rolul de a calcula media unui student pe baza notelor reprezentate prin 
atributul de tip tablou, Note. Aşadar, un algoritm primea ca argument o 


instanţă a tipului Student şi prelucra datele conţinute de aceasta. Notele 
pentru fiecare student erau preluate în mod aleator, tot într-un algoritm 
distinct, cu numele aplicatie (listing 2-5) 

În cele ce urmează, vom schimba maniera de abordare a problemei: 
vom construi o clasă care va descrie entitatea Student prin intermediul 
aceloraşi atribute (matricol,nume, datanasterii şi vectorul Note) iar 
pentru calculul mediei şi preluarea notelor vom defini două metode 
(operaţii) la nivelul acestei clase. Ca urmare, la nivelul aplicaţiei, după 
instantierea claselor şi obţinerea obiectelor de tip Student, vom trimite 
câte un mesaj fiecărui obiect pentru a genera notele şi a obţine mediile. 
Astfel, logica prelucărilor se transferă de la nivelul aplicaţiei la nivelul 
definirii operaţiilor pentru fiecare tip din spaţiul problemei. 


Algoritmi (module aplicatie) 


X. d 


| 80101 | Stud2 | Stud3 | Grupa 
Date 
Programare Procedurala Programare orientată-obiect 
Aplicaţie=Algoritni +date Aplicatie- Ansamblu de obiecte ce comunică prin 


mesaje 


Figura 2-17 Diferențe între abordarea procedurală şi cea obiectualá 


IncarcaNoteExamene() 
SetNota( ByVal nota, index) 
GetNota(index) 


Metode 


Figura 2-18 Clasa Student 


În VB, pentru a construi o clasă apelăm la opţiunea Add > Class 
Module din meniul context al ProjectExplorer-ului. Numele clasei va fi 
introdus prin proprietatea name a modulului. 


Project - Projecti 


4 Module (StudCode.bas) 
«$2 Parametri (Parametri.bas) 
A recursivitate (recursivitate. 
«$$ testClase (testClase.bas? 
«$$ TipuriCompozite (TipuriCom 
— 4&3 Class Modules 
E3 Grupa (Grupa.cls) 

Of turtent (studentele) M 본 
IV] 
ERES] ë m 5 


^ 


[student ClassModule > | 


Alphabetic | categorized | 


5 pjBanca (pjBanca) 
Zo: 

View Cade 
View Object 


DataBindingBehavior 0 - vbNone 
DataSourceBehavior 0 - vbNone 


pjBanca Properties... 


dH User Control 
1&8] Property Page 


1$ User Document 2: Returns the name used in code to identify a 


(Name) 


Form, control, or data access object. 


Add File... 


wi 


Figura 2-19 Crearea unei noi clase si denumirea ei prin proprietatea name a 
modulului. 


Listingul 2-7 prezintă codul sursă VB pentru definirea clasei Student. Se 
observă că atributele clasei se declară ca variabile globale la nivelul 
modulului (în secţiunea General a modulului Student), iar metodele sunt 
definite conform modalităţii standard VB de construire a funcţiilor sau 
procedurilor. Bineînţeles cá într-o aplicație reală, metoda 
incarcaNoteExamene() ar prelua notele dintr-o resursă externă (fişier, 
bază de date) sau ar invoca o metoda specifica a unui alt obiect (care ar 
putea fi de tip Examen spre exemplu) . Pentru simplificarea exemplului, în 
acest caz notele se genereaza aleator. 

Listing 2-7 Definiția clasei Student 


"^ declararea atributelor : 


Public Matricol As String 
Public Nume As String 

Public DataNasterii As Date 
Private Note(1 To 5) As Double 


“Urmeaza declararea si implementarea metodelor 


Public Sub incarcaNoteExamene () 
Dim k as Integer, randomNota as Double 
For k= 1 To 5 
randomNota Rnd * 10 + 4.5 
randomNota = IIf(randomNota > 10, 10, randomNota) 
Note(k) = Round(randomNota, 2) 


Next 
End Sub 


Function calculMedia() 
Dim sumaNote As Double, restanta As Boolean, i As Integer 
sumaNote - 0 
restanta - False 
For i = LBound(Note) To UBound(Note) 
If Note(i) « 5 Then 
restanta - True 
Exit For 
Else 
sumaNote = sumaNote + Note(i) 
End If 
Next 
If restanta Then 
calculMedia = 4 
Else 
calculMedia = sumaNote / (UBound(Note) - LBound(Note) + 1) 
End If 


End Function 
Public Sub setNota(ByVal nota As Double, index As Integer) 


If index >= LBound(Note) And index <= UBound(Note) And nota >= 1 And nota «- 10 
Then 

Note(index) = nota 
End If 


End Sub 


Public Function getNota(index As Integer) 
If index >= LBound(Note) And index <= UBound(Note) Then 
getNota = Note(index) 
Else 
getNota = -1 
End If 
End Function 


10 definitia clasei observám urmátoarele: 

- atributul Note este declarat ca Private. Asta înseamnă cá 
“vizibilitatea” acestui membru se reduce doar la nivelul metodelor 
definite de aceeaşi clasă, în timp ce alte obiecte/aplicatii nu vor 
avea acces direct la valorie tabloului printr-un apel de genul: 
variabila stud.Note(1). Există două motive pentru care acest 
atribut este declarat Private: 

° restricție impusă de limbaj: atributele de tip tablou cu 
număr fix de elemente şi atributele de tip compozit (tipuri 
noi definite de programator) nu pot fi declarate publice. 


° Chiar dacă limbajul ar permite-o, este indicat ca 
atributul Note să fie declarat Private pentru ca un alt 
obiect/aplicaţie să nu poată modifica în mod direct notele 
studentului. 

Şi totuşi cum rezolvăm problema accesului (fie citire, fie modificare) la 
atributul note? Răspunsul este: prin intermediul unor metode declarate 
Public (deci vizibile din exteriorul obiectului). În mod normal trebuie să 
implementăm două metode - una pentru citirea valorilor şi alta pentru 
modificarea lor. Atât timp cât accesul la valorile atributului se poate 
realiza doar prin intermediul unor metode, putem defini o asemenea 
implementare a metodei de modificare încât să restrictionám într-o 
anumită măsură domeniul de valori acceptabile pentru atributul respectiv. 
O astfel de restricţie ar putea fi ca notele studentului să fie cuprinse în 
intervalul 1-10. Dacă am dori să restrictionám complet modificarea 
valorilor, am defini doar o metodă de citire. lată de ce, definiţia clasei 
Student cuprinde şi două metode suplimentare: 

e getNota(index as Integer) - metodă ce va returna valoarea 
Note(index), bineînţeles dacă indexu-ul primit ca parametru se 
încadrează în limita maximă şi limita minimă 

e setNota(ByVal nota As Double, index As Integer) - 
metodă ce oferă posibilitatea modificării notelor. Se observă 
(listingul 2-7) cá modificarea elementului corespunzător al 
tabloului Note are loc doar dacă valoarea nouă (parametrul nota) 
se încadrează în intervalul 1-10 


Instantierea claselor. Manipularea obiectelor prin variabile 

În mod similar tipurilor compozite, obiectele se manipulează prin 
intermediul unor variabile de tip pointer (deţin o referinţă către zona de 
memorie în care sunt stocate datele obiectului). 

Pentru a obţine un obiect dintr-o anumită clasă utilizăm sintaxa : NEW 
Clasa. În mod similar datelor scalare, obiectele se manipulează prin 
intermediul variabilelor, doar că acestea vor fi întotdeauna de tip pointer 
(vor primi o referinţă spre zona de memorie în care este stocat obiectul). 

SET variabila pointer = NEW numeClasa 

Cuvântul cheie NEW are rolul de a aloca o nouă zonă de memorie 
pentru a stoca valorile atributelor noului obiect. 


Ulterior, pentru a adresa atributele obiectului şi a citi/scrie valori, 
utilizăm  varibila şi notația cu punct în mod similar tehnicii prezentate 
pentru cazul tipurilor compozite (vezi subcapitolul anterior): 

Variabila pointer.atribut=valoare 

Aceeaşi notație cu punct se utilizează şi pentru a invoca o metodă a 
obiectului ( a transmite un mesaj): 

Call Variabila pointer.metoda() 


1l SET studi = NEW Student à 
á| studi.Nume-"Student 1" 
Call studi.incarcaNoteExamene() 


44 Debug.Print(studi.Nume & " are nota 2 = "g studl.getNota(2)) 
Student 1 are nota 2 = 9.83 


HU Call studi.setNota(7,2) 


| Debug.Print(studi.Nume & " are nota 2 = "g studi.getNota(2)) 
Student 1 are nota 2 - 7 


Call studl.setNota(15,2) 


B Debug.Print(studi.Nume & " are nota 2 = "g studl.getNota(2)) 
Student 1 are nota 2 7 


D) SET studi Clona=studi 


Debug.Print(studi1 clona.Nume & " are nota 2 = "g studi clona.getNota(2)) 
| L| x 
Student 1 are nota 2 = 7 


Figura 2-20 Exemplu de construire si manipulare a unui obiect prin intermediul 
variabilelor-pointer 
Ín figura de mai sus este prezentat un exemplu de manipulare a datelor 
unui student prin intermediul unui obiect de tip Student. latá si o descriere 
pe scurt a fiecárei operatii: 
l- se instantiazá clasa Student, adresa de memorie a noului obiect 
fiind preluată de variabila 51401. 


2 - numele studentului (Student 1) este preluat de atributul Nume al 
noului obiect; utilizăm notația cu punct pentru a accesa atributul obiectului 
prin intermediul variabilei 51401 

3 - se invocă metoda incarcaNoteExamene(); conform implementării 
(listing 2-7) această metodă va genera note aleatoare şi le va încărca în 
tabloul Note . 

4 - se afişează a doua notă a studentului. Pentru că atributul Note este 
Private, nu pot fi accesate elementele printr-un apel de genul: 
studl.Note(2). Ca urmare se invocă metoda getNota(index) definită 
tocmai în scopul de a oferi acces la elementele tabloului. 

5 - se modifică nota a doua prin intermediul metodei definite in acest 
scop: setNota(note,index); 

6 - se reafişează nota a doua pentru a verifica dacă s-a efectuat 
modificarea 

7- se incearcă modificarea aceleiaşi note cu o valoare invalidă (15) 

8 - se reafişează nota a doua pentru a testa corecta funcţionare a 
metodei setNota(); se observă că nota a rămas neschimbată (7) 

9 - o altă variabilă preia referinţa (adresa de memorie) către acelaşi 
obiect; se observă că, în cazul obiectelor, se foloseşte în acest scop 
instrucţiunea SET. 

10 - În acest moment există două variabile prin intermediul cărora se 
adresează, în fapt, acelaşi obiect 


Compunerea claselor. Colecţii de obiecte. 

În mod similar tipurilor compozite, atributele claselor pot fi tipuri de 
date scalare (predefinite) sau pot defini referinţe către alte obiecte. 
Procesul prin care construim o clasă cu unul sau mai multe atribute ce vor 
prelua referințe către obiecte din alte clase se numeşte compunerea 
claselor. 

Revenind la situaţia exemplificată în secţiunea dedicată compunerii 
tipurilor compozite (subcap. 2.2), presupunem că dorim să construim clasa 
Grupa, obiectele din această clasă urmând a reprezenta o anumită grupă 
de studenti. Atributele acestei clase ar fi: idGrupa (indicativul grupei) şi 
studenti (o colecţie de obiecte din clasa Student definită anterior). 
Pentru acest din urmă atribut există două variante de implementare: 

1. sub forma unui tablou fără număr precizat de elemente, în mod 

similar exemplului din secțiunea 2.2. În acest caz, la momentul 
utilizării unui obiect Grupa, am asocia membrului studenti un 


tablou definit explicit cu elemente Student, sau am utiliza 
intructiunea Redim Preserve (vezi finalul sectiunii 2.1) pentru a 
adauga/sterge un obiect din tabloul respectiv. 

2: sub forma unei colectii dinamice, colectie reprezentatá in VB tot 

prin intermediul unei clase (predefinite) : Collection. 

Clasa Collection este mult mai potrivită pentru a implementa colecţii 
dinamice(în care pot fi adaugate/sterse elemente) de obiecte deoarece 
furnizează un comportament natural pentru manipularea elementelor 
colecţiei. Tocmai de aceea o vom utiliza în exemplul nostru. Această clasă 
defineşte următoarele metode: 

- Add (item [ , key] [, before] [, after] ) - adauga elementul item 
(poate fi un obiect sau o valoare de tip scalar (String, Double, Variant, 
etc.)) în colecţie. Ultimiii trei parametri sunt optionali, astfel cá, prin 
ignorarea lor, elementul nou, furnizat prin intermediul primului parametru 
(item), va fi adăugat la sfarsitul colecţiei. Prin intermediul parametrilor 
(optionali) before /after funrnizăm o poziţie explicită pentru noul element 
(item) în colecţie iar prin intermediul parametrului key (trebuie să fie o 
valoare de tip String unică în respectiva colecţie) specificám un alt 
identificator al elementului în locul poziţiei (indexului) acestuia. 

- ltem (/ndex) - extrage şi returnează elementul de la poziţia 
specificată prin parametrul index. Dacă s-a utilizat o cheie de identificare 
a elementeloir colecţiei, parametrul index poate furniza valoarea cheii (de 
tip String aşa cum am precizat mai sus) ce va fi căutată pentru a 
identifica elementul asociat. 

- Remove(;ndex) - elimină din colecţie elementul de la pozitia/cheia 
precizată prin index. 

- Count() - returnează numărul de elemente al colecţiei 

Aşadar, o colecţie dinamică va fi reprezentată de un obiect din clasa 
Collection, obiect pe care îl vom manipula prin intermediul unei 
variabile. În exemplul din figura 2-12 se crează un nou obiect de tip 
Collection, obiect identificat prin intermediul variabilei colectie. Se 
aduagă trei elemente (valori numerice) în noua colecţie. Se afişează 
primul si al doilea element. Se adaugă apoi un nou element ( valoarea 10) 
înaintea primului. Se reafişează primele două elemente. În final se şterge 
primul element al colecţiei (valoarea 10 adăugată la pasul anterior). 


set colectie-new Collection 
colectie.add(2z3) 
colectie.add(45) 
colectie.add(53) 


Debug.Print(colectie.Itemíil)) 
23 

Debug.Print(colectie.Item(2Z)) 
45 


ball colectie.addí(10,BEFORE:-71) 


Debug.Print (colectie.Itemí1]) 
10 

Debug.Print (colectie.Item(í2]) 
23 


colectie.remove(il) 


Debug.Print (colectie.Item(i)) 
23 

Debug.Print (colectie.Item(íz)) 
45 


Figura 2-21 Manipularea elementelor unei colectii 


Pentru a parcurge o colecţie, element cu element, utilizăm o structură 
de control specificá VB: 


FOR EACH variabila IN colectie 
instructiuni.. 


NEXT 


Dupá cum spuneam mai devreme, elementele unei colectii dinamice de 
tip Collection pot fi atât valori scalare cât si alte obiecte. Ca urmare, 
putem defini clasa Grupa (ale cărei instanţe vor reprezenta grupe de 
studenti) astfel: 

Listing 2-8 Definiţia clasei Grupa 


Public idGrupa As Long 
Public studenti As Collection 


Public Function calculMediaGrupa() 
sumaMediiStud - 0 
Dim stud As Student 


For Each stud In studenti 
sumaMediiStud = sumaMediiStud + stud.calculMedia() 


Next 
calculMediaGrupa = sumaMediiStud / studenti.Count 


End Function 


Funcţionalitatea metodei cal culMediaGrupa() este, credem, evidentă: 
calculul mediei aritmetice generale a studenţilor grupei. Se observă 
tehnica de parcurgere, element cu element, a colecţiei de obiecte de tip 
Student reprezentată de membrul studenti. În cadrul buclei For Each ... 
Next, variabila stud va deţine la fiecare pas, o referinţă către următorul 
obiect din colecţie, astfel că, prin intermediul acestei variabile putem 
accesa membrii (definiti de clasa Student) pentru obiectul respectiv: în 
acest caz, metoda calculMedia(). 

Listingul următor prezintă codul unei aplicaţii (o procedură definită într- 
un modul separat) care lucrează cu obiecte din cele două clase definite 
(Student şi Grupa). 

De remarcat că utilizăm o singura variabila (stud) pentru a construi 
diferite obiecte Student. Fiecrae obiect, o dată complet construit, va fi 
“pasat” colecţiei studenti a obiectului Grupa, astfel că variabila stud va 
putea fi reutilizată pentru a ţine o referinţă către un nou obiect Student. 

Deşi exemplul defineşte o singură grupă, pot fi create oricâte obiecte 
de tip Grupa sau Student. 

Listing 2-9. O procedură pentru testarea gestionării obiectelor prin variabile şi 

colecţii 
Sub aplicatie() 


Dim stud As Student 
Dim grupa 1 As Grupa 


' construim un obiect de ti Grupa 
Set grupa 1 - New Grupa 


grupa l.idGrupa = 311 
Set grupa_1.studenti = New Collection 


'adaugam obiecte Student in colectia "studenti" 

'aceeasi variabila, ,stud", o vom utiliza pentru a instantia obiectele Student 
Set stud - New Student 

stud.Nume - "Gigel" 

stud.Matricol - "EL101" 

stud.DataNasterii = 410/31/19824 

grupa_1.studenti.Add (stud) 

Set stud = New Student 


stud.Nume = "Costel" 
stud.Matricol = "EL102" 


stud.DataNasterii = #2/22/1982# 
grupa_1.studenti.Add (stud) 

Set stud = New Student 
stud.Nume = "Fanel" 
stud.Matricol = "EL103" 
stud.DataNasterii = 43/1/19814 
grupa l.studenti.Add (stud) 

Set stud = New Student 
stud.Nume - "Gerogel" 
stud.Matricol - "EL104" 
stud.DataNasterii = 47/28/19844 
grupa _1.studenti.Add (stud) 


' afisam notele si media fecarui student al grupei 
Dim textSirNote As String, i As Integer, k As Integer, randomNota As Double 


For Each stud In grupa 1.studenti 
textSirNote = "" 
For k = 1 To 5 
textSirNote = textSirNote & stud.getNota(k) & " , " 
Next 
Debug.Print (stud.Nume & "-->note:" & textSirNote) 
Debug.Print (stud.Nume & "-->media:" & stud.calculMedia()) 


Next 
' afisam media generala a grupei prin apelul metodei calculMedia() 
Debug.Print (" Media Grupei:" & grupa 1.calculMediaGrupa()) 


End Sub 


3. Algoritmi 


3.1. Algoritmi clasici de căutare şi sortare 


În munca unui programator, căutarea în diferite structuri de date 
reprezintă o operaţie foarte des efectuată. Exemplele cele mai frecvente se 
referă la căutarea unei anumite înregistrări dintr-un fişier de un anumit tip, 
regăsirea unei anumite valori într-un tablou care conţine mai multe elemente, 
parcurgerea unei liste în câutarea unui anumit reper, etc. În funcţie de 
specificul problemei concrete care trebuie rezolvată, fiecare dintre structurile 
sau valorile căutate pot avea sau nu diverse proprietăţi: 

e toate valorile sunt distincte între ele; 
e valorile sunt ordonate în conformitate cu o anumită relaţie de ordine (ex.: 


valorile dintr-un vector sunt ordonate crescător); 


e între două operaţiuni de căutare structura de date nu suferă modificări sau 
pot avea loc operaţiuni de inserare/ştergere/modificare. 

De asemenea, sortarea elementelor unor liste după anumite criterii constituie 
o parte esenţială a oricărei aplicaţii. 

Deşi majoritatea limbajelor de programare actuale oferă una sau mai multe 
tehnici implicite (“built in”) de căutare a unor elemente în diverse structuri de 
date, precum şi de stocare a elementelor într-o anumită ordine, totuşi orice 
programator trebuie să fie conştient de complexitatea operaţiilor ce se execută în 
asemnea proceduri. lată de ce prezentăm în continuare cei mai cunoscuţi, şi mai 
simpli, algoritmi de căutare şi sortare pe structuri statice de date. Algoritmii 
pentru structuri dinamice de date comportă o complexitate ceva mai ridicată şi 
vor fi trataţi în secţiuni distincte. Trebuie să precizăm că nu există un “cel mai 
bun” algoritm, fiecare deţinând propriile puncte tari şi slabe din punct de vedere 
al vitezei de execuţie sau a cantităţii de memorie. 


3.1.1. Căutarea în mulţimi complet ordonate 


Pentru a simplifica problema, vom considera că datele sunt stocate în vectori 
şi că există un singur criteriu de căutare. De asemenea vom lua în considerare 
doar cazul în care elementele vectorului sunt strict ordonate, pentru liste 
neordonate fiind necesară parcurgerea secventialá element cu element, caz ce 
poate fi uşor pus în practică. 

Unul din cei mai cunoscuţi algoritmi de căutare pe mulţimi ordonate este 
“devide-et-impera”. Scopul acestui algoritm este de a returna poziția la care se 
găseşte valoarea căutată în listă. 

Astfel, presupunem că se caută valoarea A în secvenţa T[p..q]. reamintim că 
are loc T[p] < T[p+1] < ... < T[q]. Descrierea algoritmului poate fi definită astfel: 
e se determină m cu pzmzq ca fiind poziția de mijloc a listei (m=(p+q)/2); 

e dacă A= T[m] atunci căutarea se termină cu succes; 
e dacă A< T[m] atunci căutarea continuă cu subsecventa Tip .. m-1]; 
e dacă A» T[m] atunci căutarea continuă cu subsecventa Tlm+1 .. q]. 

Asadar, verific dacá elementul cáutat nu este cumva egal cu cel aflat la 
jumătatea listei. Dacă este mai mic decât valoarea de la mijlocul listei, vom relua 
căutarea doar în segmentul de valori din stânga iar dacă este mai mare decât 
valoarea de la mijlocul listei vom relua căutarea doar în segmentul din dreapta . 


READ vector, valCheie 
inceput=0 
sfarsit=N 

mijloc=(inceput+sfarsit)/2 


vector(mijloc)<>valCheie AND 
inceput < sfarsit 


FALS vector(mijloc)>valCheie 


inceput=mijloc+1 sfarsit=mijloc-1 


vector(mijloc)-valCheie 
WRITE "Valoarea cautata WRITE "Valoare gasita pe 
nu se gaseste in lista" pozitia” + mijloc 
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Figura 3-22 Schema logică pentru reprezentarea algoritmului de căutare Divide Et Impera 


lată şi implementarea în VisualBasic a algoritmului: 


Listing 3.1 Divide et Impera în VB 


Sub cauta DivideEtImpera(vector, valCheie) 
inceput LBound(vector) "extrag primul index al vectorului primit ca parametru 
sfarsit = UBound(vector) "extrag ultimul index al vectorului primit ca parametru 


mijloc = Int((sfarsit + inceput) / 2) 


Do While vector(mijloc) <> valCheie And inceput < sfarsit 
If valCheie > vector(mijloc) Then 
inceput = mijloc + 1 


Else 
sfarsit = mijloc - 1 
End If 
mijloc = Int((sfarsit + inceput) / 2) 
Loop 


If vector(mijloc) = valCheie Then 


Debug.Print ("valoarea " & valCheie & "se afla la pozitia:" & mijloc) 
Else 

Debug.Print ("valoarea " & valCheie & "nu se gaseste in multime") 
End If 


End Sub 


Pentru a testa procedura cauta DivideEtImpera() construim o rutiná 


care va furniza datele de test reprezentate sub for ma vectorului Multime : 


Sub test(valCautata) 
Dim Multime(1 To 6) 


Multime(1) = - 

Multime(2) = -2 

Multime(3) - 20 

Multime(4) = 53 

Multime(5) = 75 

Multime(6) - 80 

Call cauta DivideEtImpera(Multime, valCautata) 
End Sub 


În final se invocă procedura test(), eventual din fereastra Immediate (meniul 
View-Immediate Window) a mediului VB ca în figura 3-2 . 


m E JE) 


File Edit view Project Format Debug Run Query Diagram Tools Add-Ins Window Help 


|3-*- t| bi] + S (|o [| » n m] f m 5 ER n z 
ED e: 8 
xi Hn = EX xj 
[(Generan =] testCauta aji ES] I | 


H-E Forms 
E Formi (Form .frm) 
ÈL Form? (Form2.frm) 


B Sub testCauta(valCautata] 
니그 =E Modules 
vc Dim Multime(i To 6) «$$ Begining (Module.bas) 
Ra Hultime (1) = -3 «€$ CautareSortare (CautareSortare.bas) 
EB EA Hultime(2) = -2 8 Moduli (Moduli .bas) 
FEN Hultime (3) = 20 «$$ Parametri (Parametri.bas) 
= Multime (4) = 53 
==] Hultime (5) = 75 || 
Hultime (6) = 80 IIS] 
E 
ms Call cauta DivideEtlImpera(Multime, valCautata) [CautareSortare Module > | 
Il Alphabetic | Categorized | 
EA OETI CautareSortare 


Immediate 


Call CautareSortare.testCauta (80) 
valoarea 80se afla la pozitia:6 


(Name) 
Returns the name used in code to identify a Form, 
control, or data access object. 


Figura 3-23 Testarea procedurii cauta divideEtlmpera(). 


3.1.2. Problema sortării 


Dacă problema căutării este una relativ simplă d.p.d.v. al algoritmului 
prezentat mai devreme, o problemă ceva mai complexă o constituie ordonarea 
elementelor unui vector; astfel, transformarea unui vector X într-un vector pentru 
care: 

X[i] <= X[i+1] „1l<=i<=n-l, 

folosind o cantitate minimă de memorie suplimentară, se numeşte sortare. 


BubbleSort 

Unul dintre cei mai cunoscuţi şi utilizaţi algoritmi de sortare este şi cel mai 
slab din punctul de vedere al eficienţei. Este vorba de algoritmul BubbleSort 
(metoda bulelor). Ideea algoritmului este foarte simplă. Dorim să obţinem un 
vector pentru care să fie îndeplinită condiţia: 

X[i] <= X[i+1] „1l<=i<=n-l. 

Dacă această condiţie este îndeplinită de la început, atunci nu trebuie să 
se mai execute nici o transformare asupra şirului. Dacă însă găsim o pereche de 
valori (i, i+1) pentru care X[i] > X[i+1] vom corecta acest aspect schimbând 
între ele cele două elemente. Deci o primă aproximaţie a algoritmului ar putea să 
fie următoarea: 

pentru fiecare pereche de valori execută 


1 
dacă nu sunt în ordinea corectă atunci 
schimbă valorile între ele 


Se pune însă întrebarea dacă o astfel de parcurgere a vectorului este 
suficientă; să considerăm de exemplu şirul de valori: 

9 6 5 3 

Dacă parcurgem elementele vectorului o singură dată, utilizând algoritmul 
prezentat vom obţine: 

6 5 3 9 

Se observă că cel mai mare element a ajuns în ultima poziţie, dar celelalte 
valori nu sunt încă pe poziţiile corecte. Pentru exemplul considerat (care este cel 
mai dezavantajos posibil din punct de vedere al ordonării iniţiale), se observă că 
sunt necesare N-1 parcurgeri ale vectorului. Dacă însă şirul valorilor este de la 
început ordonat, acest fapt se constată după o singură parcurgere. Aşadar, 
numărul de parcurgeri necesar depinde de ordinea iniţială a elementelor ce 
formează vectorul. 

În cazul unui vector oarecare trebuie să se execute parcurgeri repetate, 
până ce se constată că s-a obţinut un vector ordonat. Procesul de sortare poate fi 
accelerat dacă se ţine seama de faptul că după o parcurgere o parte dintre 
elementele vectorului (începând de la cel de-al doilea din ultima pereche 
modificată) sunt deja sortate. 


Elemente analizate la Elemente sortate la 


următoarea parcurgere parcurgerile anterioare 
1 U N 


Ultima modificare 
Elementele localizate la dreapta locației ultimei interschimbări nu mai 
trebuie analizate la următoarea parcurgere, pentru că acestea sunt deja sortate 
deci numărul de perechi analizate trebuie actualizat la sfârşitul fiecărei 
parcurgeri, aşa cum se procedează în algoritmul următor (prezentat în pseudocod 
şi schemă logică). 


BubbleSort(X, N) 
Begin 
NP=N-1 //NP este începutul părţii sortate din listă 
DO 
UltimaModificare = 0 
pentru fiecare pereche i de la 1 la NP execută 


1 
dacă ordine incorectă atunci 
1 
interschimbă valorile 
UltimaModificare = i 
) 
) 


NP = UltimaModificare - 1 
WHILE UltimaModificare > 1 
END 


START 


READ vector, N 


( 


i=1 
ultimaModificare=0 


vectorii)>vector(i+1) 


temp=vectorți) 
vector(i)>vector(i+1) 
vector(i+1)=temp 
ultimaModificare=i 


nrPasi=ultimaModificare-1 


ultimaModificare > 1 


FALSE 


WRITE vector 


STOP 


Figura 3-24 Schema logică pentru BubbleSort (consideram plaja de valori a indexului 
elementelor listei: 1-N) 


lată în continuare şi implemenetarea algoritmului în VisualBasic: 


Listing 3-2 Procedura VB pentru BubbleSort 


Sub bubbleSort(vector) 
Debug.Print ("lista initiala (neordonata):") 
afiseazaVector (vector) 


nrPasi = UBound(vector) — 1 
minlIndex = LBound(vector) 
Do 
ultimaModificare - 0 
For i = minIndex To nrPasi 
If vector(i) > vector(i + 1) Then 
temp - vector(i) 
vector(i) = vector(i + 1) 
vector(i + 1) = temp 
ultimaModificare - i 
End If 
Next 
nrPasi = ultimaModificare - 1 


Debug.Print ("pas intermediar:") 
afiseazaVector (vector) 
Loop While ultimaModificare » 1 


Debug.Print ("lista sortata:") 
afiseazaVector (vector) 
End Sub 


Sub afiseazaVector(v) 

Slip = WU 

For i = LBound(v) To UBound(v) 
sir = sir & v(i) & "," 

Next 

Debug.Print (sir) 

End Sub 


Se observă cá implementarea VB comportă o mică modificare faţă de 
algoritmul prezentat în figura 3-3: utilizăm functiile Lbound() si Ubound() pentru a 
afla limita minima, respectiv maximă a indexului elementelor vectorului (vezi şi 
secţiunea 2.1 despre tablouri). Procedura afiseazaVector() are sarcina de a 
afişa elementele vectorului şi este apelatá si în cadrul buclei Do...While tocmai 
pentru a evidentia “stările” tranzitorii prin care trece lista de elemente la fiecare 
parcurgere. 

În final, pentru a testa algoritmul, construim o procedură care să definească o 
listă de numere aleator generate (funcţia Rnd ) şi care să invoce procedura 
bubleSort() prezentată mai sus. 

Sub testSortare() 


Dim MultimeNeordonata (6) 
For i=0 10 6 

MultimeNeordonata(i) = Int(Rnd * 80) 'vor fi generate numere intregi 1-80 
Next 

Call bubbleSort(MultimeNeordonata) 


End Sub 


La rândul ei, procedura testSortare() poate fi apelată direct din fereastra 
Immediate a mediului VB, după cum se observă şi în figura ce urmează (a se 
observa faşii intermediari de sortare afişaţi): 


& EJ5[x) 
File Edit view Project Format Debug Run Query Diagram Tools Add-Ins Window Help | 
|B-&-* Gl XR OS 0, os MIS ER zi | 


Sub testSortare() Gi 
H-E Forms 


Dim MultimeNeordonata(6) 423 Modules 


[ 때 For i = 0 To 6 «i Begining (Module.bas) 
HultimeNeordonata (i) = Int(Rnd * 80) ' genereaza numere aleatoare 1-80 «8 CautareSortare (CautareSortare.bas) : 
pe Next «3 Moduli (Moduli bas) 


Call bubbleSort (Mult imeNeordonata) «& Parametri (Parametri,bas) 


End Sub 


A 그 Sub testCauta(valCautata) 
Ca ]————— e 

C3 Dim Multime (1 To 6) xil 

Hultime (1) = -3 x| 
D i Hultime (2) = -2 CautareSortare Module X 
g Hultime(3) = 20 Alphabetic | categorized | 

lista initiala (neordonata): 

m [2 56,42,46,23,24,61,1, OETI] CautareSortare 


pas intermediar: 
42,46,23,24,56,1,61, 
pas intermediar: 
42,23,24,46,1,56,61, 
pas intermediar: 
23,24,42,1,46,56,61, 
pas intermediar: 
23,24,1,42,46,56,61, 
pas intermediar: 
23,1,24,42,46,56,61, 
pas intermediar: 
1,23,24,42,46,56,61, 
Lista sortata: 
1,23,24,42,46,56, 


(Name) 
Returns the name used in code to identify a form, 
control, or data access object. 


BORA ew Visual Basic EN. [c3 13:33 


Figura 3-25 Testarea procedurii bubbleSort(). 


Sortarea prin insertie 

Una dintre familiile importante de tehnici de sortare se bazeazá pe metoda 
“jucătorului de bridge" (atunci când îşi aranjează cărţile), prin care fiecare 
element este inserat în locul corespunzător în raport cu elementele sortate 
anterior. 

Principiul de bază al algoritmului de sortare prin insertie este următorul: se 
presupune că subsecventa (X[1], ... , X[k-1]) este sortată. Se caută în această 
subsecventá locul i al elementului X[k] şi se inserează X[k] în poziţia i. Poziţia i 
este determinată astfel: 

e i= 1 dacă X[k] < X[1] 
e l1<i<kgşisatisface X[i-1] <= X[k] < X[i]; 
e i=k dacă X[k] >= X[k-1]. 

Poziţia elementului i este determinată prin cãutare secvenţială de la 
dreapta la stânga simultan cu deplasarea elementelor mai mari decât X[i] cu o 
poziţie la dreapta. Cu alte cuvinte: 

e [ista se parcurge de la stânga spre dreapta 


la fiecare pas al parcurgerii listei elementul curent este memorat într-o 
variabilă distinctă (să zicem temp) 

procesul de parcurgere începe cu cel de-al doilea element al listei; dacă este 
mai mare decât primul rămâne pe loc, iar dacă nu (este mai mic decât 
primul), primul trece pe locul celui de-al doilea iar cel de-al doilea trece pe 
primul 

pentru al treilea element al listei procesul se reia: 

0 Se memoreazá în variabila temp 

o se parcurge lista înapoi până găsim un element <= temp ; la acest 
moment locul valorii memorate în temp este imediat după elementul 
mai mic decât temp (dacă găsim un asemenea element, procesul de 
căutare înapoi se opreşte pentru că toate elementele la stânga sunt 
deja sortate în paşii anteriori); odată cu parcurgerea înapoi, elementele 
> temp se deplasează cu o poziţie la dreapta. 

o Dacă, în urma căutării în submultimea din stânga nu se găseşte nici un 
element <=temp, înseamnă că valoarea memorată în temp este cea 
mai mică la momentul actual şi o plasăm pe prima poziţie 

Procesul se repetă pentru al patrulea element, ş.a.m.d 


Lista iniţială 
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lată 51 schema logică a acestui algoritm 


READ vector, N 


Temp=vector(i) 


FALSE 


LocGasit=false 


K»-1 AND 
ocGasit=false 


FALS vector(k)>Temp 


LocGasit=true 


vector(k+1)=vector(k) 


vector(k+1)=Temp 


WRITE “multime sortata :” vector 
STOP 


Figura 3-26 Algoritmul InsertSort. (domeniul de valori al indexului vectorului se 
consideră 1 : N) 


Listing 3-3 Algoritmul InsertSort implementat în VB 


Sub insertSort(vector) 
Debug.Print ("MULTIMEA INITIALA (neordonata): " & getStringFromVector(vector) & 
Chr(13)) 


For i = LBound(vector)+1 To UBound(vector) 
temp = vector(i) 
Debug.Print (" valoarea temp la pasul- " & i & " - este :" & temp) 


locGasit = False 
=. di 
Do While (Not locGasit) And k >= LBound(vector) 


If temp » vector(k) Then 
locGasit = True 


Else '(deplasez elementul mai mare cu o pozitie la dreapta) 


vector(k + 1) = vector(k) 
=! 
End If 
Loop 
vector(k + 1) = temp 


Debug.Print (" dupa executia pasului - " & i& "- vectorul arata astfel: " 
& getStringFromVector(vector)) 


Next 
Debug.Print (Chr(13) & "MULTIMEA ORDONATA: " & getStringFromVector(vector)) 


End Sub 


Function getStringFromVector(v) 

sir = nu 

For i = LBound(v) To UBound(v) 
sir = sir & v(i) & "," 

Next 


getStringFromVector - sir 
End Function 


latá si procedura care va furniza datele de test : 
Sub testSortare() 


Dim MultimeNeordonata(6) 
For i = 0 To6 

MultimeNeordonata(i) = Int(Rnd * 80) ' genereaza numere aleatoare 1-80 
Next 

Call insertSort(MultimeNeordonata) 


End Sub 
Câteva comentarii asupra implementării VB: 


e În VB, pentru a porni procesul repetitiv de căutare a poziţiei de la 
elementul al doilea, (For i=Lbound(vector)+1 to 
Ubound(vector)) utilizăm funcţiile LBound(vector) 51 
Ubound(vector) pentru a obţine limita inferioară, respectiv limita 
superioară a indexului elementelor. În cazul de faţă, elementele 
vectorului sunt indexate de la 0 (în precedura testSortare(), 
vectorul pentru test este declarat în mod clasic, Dim 
MultimeNeordonata(6), adică 7 elemente: de la 0 la 6). 


Elementele vectorului MultimeNeordonata se generează aleator 
prin utilizarea funcţiei Rnd care returnează un număr aleator real 
cuprins între limitele O si 1 

e Pentru fiecare pas al buclei FOR se afişează valoarea elementului 
curent (memorat în variabila temp) a cărui poziţie este căutată în 
subşirul ordonat din stânga poziţiei acestuia (operatorul & 


concatenează operanzii într-un singur şir de caractere): 


Debug.Print (" valoarea temp la pasul- "6 i 6" - este :" & temp 
e De asemenea, pentru fiecare pas al buclei FOR, după execuţia 


prelucărilor specifice, se afişează conţinutul curent al vectorului 


parţial ordonat. 


Debug.Print (" dupa executia pasului - "& i & " - vectorul arata astfel: " & 
getStringFromVector(vector)) 


e 10 final (după ieşirea din bucla FOR) se afişează vectorul ordonat 
(CHR(13) returnează caracterul specific pentru a obţine o linie 
liberă) 

Debug.Print (Chr(13) & "MULTIMEA ORDONATA: " & getStringFromVector(vector)) 
e Pentru afişarea vectorului (în diferite ipostaze) s-a construit 


funcţia — getStringFromVector() care preia un tablou 
unidimensional ca argument şi returnează un şir de caractere 
obţinut din elementele vectorului separate prin virgulă 


(General) X [insertsort =] 


Debug.Print (Chr(13) & "MULTIMEA ORDONATA: " & getStringFfromvector (vector)) 


End Sub 


Sub testSortare() 


Dim MultimeNeordonata(6 
For í = O0 To 6 

MultimeNeordonata(i) = Int(Rnd * 80) ' genereaza numere aleatoare 1-80 
Next 

Call insertSort (HultimeNeordonata) 


End Sub 


call testSortare() 
MULTIMEA INITIALA (neordonata]: 56,42,46,23,24,61,1, 


valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 


1 este :42 
1 
2 
2 
3 
3 
valoarea temp la pasul- 4 
4 
5 
5 
6 
6 


- vectorul arata astfel: 42,56,46,23,24,61,1, 
- este :46 
- vectorul arata astfel: 42,46,56,23,24,61,1, 
- este :23 
- vectorul arata astfel: 23,42,46,56,24,61,1, 
- este :24 
- vectorul arata astfel: 23,24,42,46,56,61,1, 
- este :61 
- vectorul arata astfel: 23,24,42,46,56,61,1, 
- este :1 
- vectorul arata astfel: 1,23,24,42,46,56,61, 


dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 


MULTIMEA ORDONATA: 1,23,24,42,46,56,61, 


Figura 3-27 testarea algoritmului insertSort 


3.2. Recursivitate 


Prin recursivitate se intelege faptul ca un subprogram se apeleaza pe 
el 105451, apelul fiind generat atunci cand subprogramul este inca activ. 
Exista două tipuri de recursivitate: 

1) recursivitate directa - cand un subprogram se autoapeleaza in 
corpul sau ; 
2) recursivitate indirecta - cand avem doua subprograme (x si y), iar 
x face apel la y si invers ; 
Într-o formă generală, o funcție recursivă poate să arate astfel: 
Function functie 1( parametri ) 


if conditie then 
return valoare 
else 
return functie_1(valori_parametri) 


End Function 


Se observă că nu există o sintaxă specializată pentru a specifica 
recursivitatea, simplul fapt că în corpul subrutinei există un apel la ea 
însăşi fiind suficient pentru a obține o subrutină recursivă. Lucrurile se 


petrec întocmai ca pentru orice proces de invocare a unei subrutine: rutina 
principală îşi suspendă execuţia în timp ce controlul este transferat unei 
alte instante a aceleiaşi funcţii. 

Se folosesc algoritmi recursivi atunci cand calculele aferente sunt 
descrise in forma recursiva. 

Ca prim exemplu vom apela la N factorial. Funcţia N factorial poate fi 
descrisă în două moduri: 

1 - liniar - fact(N)=N x N-1 x N-2...x 1 

2 - recursiv - fact(N) = 1 daca n-1 

= N x fact(N-1) pentru n>1 

Astfel, prima variantă (descrierea liniară) poate fi implementată într-un 
algoritm prin iteratie (structura de control repetitivă - vezi în capitolul 1.2 
secţiunea dedicată structurilor fundamentale de control) . 

Cea de-a doua variantă de descriere a funcţiei va fi implementată 
printr-un algoritm recursiv. 

Un subprogram recursiv trebuie scris astfel incat sa respecte regulile : 

a) Subprogramul trebuie sa poata fi executat cel putin o data 
fara a se autoapela ; 
b) Procesul de autoapel va avea la bază o asemenea logică încât să 

se tindă spre situaţia de execuţie fara autoapel. 

Cu alte cuvinte, într-o funcţie recursivă întotdeauna va exista un test de 
genul 

IF cond THEN return valoare ELSE apel recursiv 

lată algoritmul recursiv pentru N factorial implementat în VB: 


Function factorialRecursiv(n) 


If n = 1 Then 
factorialRecursiv = 1 
Else 
factorialRecursiv - n * factorialRecursiv(n - 1) 
End If 
End Function 


5 | aug 
(General) v [factorialRecursiv v | 


Function factorialRecursiv (n) 


If n » 1 Then 
factorialRecursiv 1 
Else 
factorialRecursiv n * factorialRecursiviín - 1) 
End If 
End Function 


Immediate 


Debug.print(factorialRecursiv(4)) 
24 


Figura 3-28 Testarea functiei recursive factorialRecursiv() 


> Apel functie 
(invocare) 


-- -> Transfer rezultat 


Figura 3-29 Paşii parcurşi la execuția funcției factorialRecursiv() cu n=4 


Ce se intimpla de fapt? Mai întîi se apeleaza funcția factorialRecursiv() 
de n-1 ori fara a ajunge la un rezultat. Fiecare instanță a funcţiei (văzută 
ca proces separat în memorie) îşi suspendă execuţia aşteptând un rezultat 
de la funcţia apelată. La cel de-al n-lea apel, parametrul actual n este 1 şi 
algoritmul nu mai intră pe ramura False a structurii IF ci pe ramura True. 
În acest caz funcţia returnează valoarea 1 şi îşi opreşte execuţia (nu se 
suspendă ci se încheie definitiv), moment în care se declanşează un 


proces în cascadă de returnare de valori de la o funcţie la alta pe niveluri 
descrescătoare. Limbajul gestionează funcţiile cu execuţia suspendată 
prin intermediul unei stive (vezi capitolul 2 dedicat structurilor de date 
dinamice), prima funcţie apelată (factorialRecursiv(4)) fiind ultima 
care primeşte un rezultat. 

Pentru implementarea recursivitatii se foloseste o zona de memorie in 
care se poate face salvarea temporară a unor valori. La fiecare appel 
recursiv al unui subprogram se salveaza in aceasta zona de memorie 
starea curenta a execuţiei sale (toate valorile variabilelor la moemntul 
suspendării execuţiei). 

Deşi variabilele locale ale subprogramului apelant au aceleaşi nume cu 
cele ale subprogramului apelat, orice referire la aceşti identificatori se 
asociaza ultimului set de valori alocate in zona de memorie. Zona de 
memorie ramâne alocată pe tot parcursul executiei subprogramului apelat 
si se dealocă în momentul revenirii in programul apelant. Zona de 
memorie nu este gestionata explicit de programator ci de catre limbaj. 

La terminarea executiei subprogramului apelat recursiv, se reface 
contextul programului din care s-a facut apelul. Datorita faptului ca la 
fiecare autoapel se ocupa o zona de memorie, recursivitatea este eficienta 
numai daca numarul de autoapelari nu este prea mare pentru a nu se 
ajunge la umplerea zonei de memorie alocata. 

Recursivitatea ofera avantajunl unor soluţii algoritmice mai clare pentru 
probleme de o anumită natură. Ea prezintă insă dezavantajul unui timp 
mai mare de execuţie şi a unui spaţiu de memorie alocată mai mare. Este 
de preferat ca atunci cand programul recursiv poate fi transformat intr- 
unul iterativ sa se faca apel la cel din urmă. 

În continuare vom prezenta alte câteva exemple de algoritmi recursivi clasici. 

Sirul lui Fibonacci ( descoperit in 1202 de catre Leonardo Pisano (Leonardo 
din Pisa), cunoscut sub numele de Leonardo Fibonacci) este definit prin 
următoarea recurenţă: 

fib:N->N 
fib(n)=1, daca n=0 sau n-1 
=fib(n-2)+fib(n-1), daca n»1 
lată câteva din numerele acestui şir: 1,1,2,3,5,8,13... 


lată şi implementarea algoritmului recursiv in VB: 


Function fibonacciNumber(n) 
If n=1 Or n= Q0 Then 
Debug.Print (1) 
fibonacciNumber = 1 
Else 


fibonacciNumber = fibonacciNumber(n - 1) + fibonacciNumber(n - 2) 


End If 


Se observă cá a fost introdus si un apel de afişare a valorii 1 în scopul de a 


sesiza de câte se trece prin acelaşi pas. 
| 
fib rec(3) 
fib ree(1 
) rec(1) 


Figura 3-30 Apeluri recursive pentru aflarea numărului de pe poziţia 5 din şirul 
Fibonacci 

După testarea acestui algoritm cu N=40 să zicem, se va observa cât este de 
ineficient (ca timp de execuţie) deoarece recalculeaza de mai multe ori 
aceleaşi valori. 

lată şi o rezolvare iterativă a aceluiaşi algoritm, care necesită timp liniar. 
Function fib2(n) 


1 
1 


For k = 2 Ton 
Debug.Print (j) 
j=i+j 
i | = 이 

Next 
fib2 = j 


End Function 
Se va observa, la testarea acestui ultim algoritm cu acelaşi N=40, că timpul 


de execuţie este sensibil mai scurt. 

Testarea celor două variante de rezolvare demonstrează afirmaţia că 
algoritmii recursivi oferă o rezolvare mai elegantă si mai uşor inteligibilă a 
anumitor probleme, dar comportă un risc d.p.d.v al optimizării vitezei de 
execuţie. 


inversarea unui text. Presupunem că dorim să construim o funcţie care, pe 
baza unui şir de caractere primit ca parametru să returneze şirul respectiv în 
ordine inversă (de la drepta la stânga. Funcţia poate fi descrisă recursiv astfel: 


textInvers(text) = text dacă lungimea textului este 1 (1 caracter) 


= ultimChar + textInvers(text - ultimChar) daca lungime text 
>1 


Textinvers(“abod”)=d-H vers(abc)) D > dda 
cba 


—c4textInvers(ab) 
ㅣ. 
Lo 
P 
=a 
lată 51 implementarea algoritmului în VB 


ES 3E 


(General) | jtextinversat ㅜㅠ 


Function textInversat(text às String) 


If Len(text) = 1 Then 
textInversat - text 
Else 


textInversat = Right (text, 1) + textInversat(Left(text, Lení(text) - 1)) 
End If 


End Function 


debug.Print(textInversat("Moldova n-a fost a mea ...")) 
ㆍ aem a tsof a-n avodloM 


Figura 3-31 Implementarea algoritmului textinversat() in VB si testarea functiei 


Pentru detalii despre funcţiile predefinte VB Right(), Left(), Len(), 
vezi cap 12 din lucrarea Finaru,L., Brava,l. - "VB-Primii paşi... şi următorii” 


